module UnliftIO.Chan
( Chan
, newChan
, writeChan
, readChan
, dupChan
, getChanContents
, writeList2Chan
) where
import Control.Monad.IO.Unlift
import Control.Concurrent.Chan (Chan)
import qualified Control.Concurrent.Chan as C
newChan :: MonadIO m => m (Chan a)
newChan = liftIO C.newChan
writeChan :: Chan a -> a -> IO ()
writeChan c = liftIO . C.writeChan c
readChan :: Chan a -> IO a
readChan = liftIO . C.readChan
dupChan :: Chan a -> IO (Chan a)
dupChan = liftIO . C.dupChan
getChanContents :: Chan a -> IO [a]
getChanContents = liftIO . C.getChanContents
writeList2Chan :: Chan a -> [a] -> IO ()
writeList2Chan c = liftIO . C.writeList2Chan c