gistfile1.txt

import Control.Concurrent (threadDelay)
import Control.Concurrent.Async
import Control.Concurrent.Chan.Unagi.Bounded
import Control.Monad
import SlaveThread (fork)

main = do
  (inCh, outCh) <- newChan 500000
  race_ (sender inCh) (receiver outCh)

sender ch = forever $ do
  threadDelay 50
  _ <- tryWriteChan ch 42
  return ()

receiver ch = forever $ do
  x <- readChan ch
  return ()