Workflow-0.7.0.5: Demos/pr.hs

module Main where
import Control.Workflow



main = getName >>= putStrLn

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

    return $ "hello " ++ name