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