No title

1
2
3
4
5
6
7
import Control.Concurrent.STM

example :: TChan String -> TChan String -> IO ()

a <- atomically $ newTChan
b <- atomically $ newTChan