myname workflow

1
2
3
4
5
6
7
8
9
10
11
12
module Main where
import Control.Workflow

main = getName >>= putStrLn

getName=  exec1nc "test" $ do
    name <- step $ do
               putStrLn "your name?"
               getLine 
            
    return $ "hello " ++ name