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