module System.Log.Simple.File (

	file

	) where



import Control.Monad.Cont

import Data.Text (Text)

import System.Log.Simple.Base

import System.FilePath

import System.Directory

import System.IO



import System.Log.Simple.Stream (stream)



file ∷ FilePath → Consumer Text

file fileName = do

	liftIO $ createDirectoryIfMissing True $ takeDirectory fileName

	h ← ContT $ withFile fileName AppendMode

	stream h