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