Welcome, guest! Login / Register - Why register?
Psst.. new poll here.
[email protected] webmail now available. Want one? Go here.
Cannot use outlook/hotmail/live here to register as they blocking our mail servers. #microsoftdeez
Obey the Epel!

Paste

Pasted as Haskell by jeronimo ( 2 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
Your Name: Code Language: