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