diff --git a/yesod-core/Yesod/Core.hs b/yesod-core/Yesod/Core.hs index 294d17bf..c2c46961 100644 --- a/yesod-core/Yesod/Core.hs +++ b/yesod-core/Yesod/Core.hs @@ -26,6 +26,11 @@ module Yesod.Core , logWarn , logError , logOther + , logDebugS + , logInfoS + , logWarnS + , logErrorS + , logOtherS -- * Sessions , SessionBackend (..) , defaultClientSessionBackend diff --git a/yesod-core/Yesod/Internal/Core.hs b/yesod-core/Yesod/Internal/Core.hs index 2423d9eb..05467d04 100644 --- a/yesod-core/Yesod/Internal/Core.hs +++ b/yesod-core/Yesod/Internal/Core.hs @@ -315,7 +315,6 @@ $doctype 5 -> LogStr -- ^ message -> IO () messageLogger a logger loc = messageLoggerSource a logger loc "" - {-# DEPRECATED messageLogger "Please use messageLoggerSource (since yesod-core 1.1.2" #-} -- | Send a message to the @Logger@ provided by @getLogger@. messageLoggerSource :: a @@ -373,6 +372,8 @@ $doctype 5 shouldLog :: a -> LogSource -> LogLevel -> Bool shouldLog a _ level = level >= logLevel a +{-# DEPRECATED messageLogger "Please use messageLoggerSource (since yesod-core 1.1.2)" #-} + formatLogMessage :: IO ZonedDate -> Loc -> LogLevel