Paste
Pasted as Haskell by jeronimo ( 4 years ago )
import Control.Concurrent (newMVar, putMVar, takeMVar )
arrIO _ =
proc _ -> do
counter <- newMVar 0 :: IO (MVar Int)
takeMVar counter >>= print
returnA -< ()
Revise this Paste
Parent: 121682