Workflow-0.7.0.7: Demos/pr.hs

module Main where
import Control.Workflow



main = do
 syncWrite SyncManual
 getName >>= putStrLn
 main

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

    return $ "hello " ++ name