persistent 2.1.1.5 → 2.1.1.6

raw patch · 3 files changed

+8/−4 lines, 3 files

Files

• ChangeLog.md +4/−0
• Database/Persist/Sql/Raw.hs +3/−3
• persistent.cabal +1/−1

@@ -1,3 +1,7 @@+## 2.1.1.6++* One extra feature for #939: use `logDebugN` instead+ ## 2.1.1.5  * Better SQL logging [Yesod issue #939](https://github.com/yesodweb/yesod/issues/939)

@@ -15,7 +15,7 @@ import Control.Exception (throwIO) import Control.Monad (when, liftM) import Data.Text (Text, pack)-import Control.Monad.Logger (logDebugS, runLoggingT)+import Control.Monad.Logger (logDebugNS, runLoggingT) import Data.Int (Int64) import qualified Data.Text as T import Data.Conduit@@ -39,7 +39,7 @@ rawQueryRes sql vals = do     conn <- ask     let make = do-            runLoggingT ($logDebugS (pack "SQL") $ T.append sql $ pack $ "; " ++ show vals)+            runLoggingT (logDebugNS (pack "SQL") $ T.append sql $ pack $ "; " ++ show vals)                 (connLogFunc conn)             getStmtConn conn sql     return $ do@@ -61,7 +61,7 @@                 -> ReaderT SqlBackend m Int64 rawExecuteCount sql vals = do     conn <- ask-    runLoggingT ($logDebugS (pack "SQL") $ T.append sql $ pack $ "; " ++ show vals)+    runLoggingT (logDebugNS (pack "SQL") $ T.append sql $ pack $ "; " ++ show vals)         (connLogFunc conn)     stmt <- getStmt sql     res <- liftIO $ stmtExecute stmt vals

@@ -1,5 +1,5 @@ name:            persistent-version:         2.1.1.5+version:         2.1.1.6 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>