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