haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

restore original makeLogger api, but deprecate

Browse Source
This commit is contained in:
Greg Weber 2011-12-25 14:04:14 -03:00
parent 6af1329fdf
commit dd3fa62f38
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
yesod-core/Yesod/Logger.hs
View File

@ -2,6 +2,7 @@
module Yesod.Logger module Yesod.Logger
( Logger ( Logger
, makeLogger , makeLogger
, makeLoggerWithHandle
, makeDefaultLogger , makeDefaultLogger
, flushLogger , flushLogger
, timed , timed
@ -39,12 +40,16 @@ data Logger = Logger {
, loggerDateRef :: DateRef , loggerDateRef :: DateRef
} }
makeLogger :: Handle -> IO Logger makeLogger :: IO Logger
makeLogger handle = dateInit >>= return . Logger handle makeLogger = makeDefaultLogger
{-# DEPRECATED makeLogger "Use makeDefaultLogger instead" #-}
makeLoggerWithHandle :: Handle -> IO Logger
makeLoggerWithHandle handle = dateInit >>= return . Logger handle
-- | uses stdout handle -- | uses stdout handle
makeDefaultLogger :: IO Logger makeDefaultLogger :: IO Logger
makeDefaultLogger = makeLogger stdout makeDefaultLogger = makeLoggerWithHandle stdout
flushLogger :: Logger -> IO () flushLogger :: Logger -> IO ()
flushLogger = hFlush . loggerHandle flushLogger = hFlush . loggerHandle