Workflow-0.5.5: demos/sequence.hs

module Main where
import Control.Workflow
import Control.Concurrent(threadDelay)
import System.IO (hFlush,stdout)


mcount n= do
            plift $  putStr (show n ++ " ") >> hFlush stdout >> threadDelay 1000000
            mcount (n+1)



main= do
   registerType :: IO ()
   registerType :: IO Int
   let start= 0 :: Int
   startWF  "count"  start   [("count", mcount)] :: IO ()