simple-log-0.7.0: src/System/Log/Simple/Chan.hs

module System.Log.Simple.Chan (
	chan
	) where

import Control.Concurrent.Chan (Chan, writeChan)
import System.Log.Simple.Base

chan ∷ Chan a → Consumer a
chan ch = return $ writeChan ch