From dd3fa62f3843977acb19bce45a14a642c94d3856 Mon Sep 17 00:00:00 2001 From: Greg Weber Date: Sun, 25 Dec 2011 14:04:14 -0300 Subject: [PATCH] restore original makeLogger api, but deprecate --- yesod-core/Yesod/Logger.hs | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/yesod-core/Yesod/Logger.hs b/yesod-core/Yesod/Logger.hs index eb9f8ba9..9d2f2ea9 100644 --- a/yesod-core/Yesod/Logger.hs +++ b/yesod-core/Yesod/Logger.hs @@ -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