myname workflow

Alberto Gómez Corona 2012-09-22 22:59:05.500851 UTC

1
2module Main where
3import Control.Workflow
4
5main = getName >>= putStrLn
6
7getName= exec1nc "test" $ do
8 name <- step $ do
9 putStrLn "your name?"
10 getLine
11
12 return $ "hello " ++ name