From a30cc7408771e8b9c1d05949fe745537f0610862 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 23 Sep 2012 13:43:08 +0200
Subject: [PATCH] Export log*S (#405)

---
 yesod-core/Yesod/Core.hs          | 5 +++++
 yesod-core/Yesod/Internal/Core.hs | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

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