simple-logging 0.2.0.4 → 0.2.0.5

raw patch · 3 files changed

+3/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +2/−0
• simple-logging.cabal +1/−1
• src/Control/Effects/Logging.hs +0/−2

@@ -1,3 +1,5 @@+# 0.2.0.5
+prettyPrintSummary no longer prints the callstack
 # 0.2.0.4
 Updated to simple-effects-0.12.0.0
 

@@ -1,5 +1,5 @@ name:                simple-logging-version:             0.2.0.4+version:             0.2.0.5 synopsis:            Logging effect to plug into the simple-effects framework homepage:            https://gitlab.com/haskell-hr/logging license:             MIT

@@ -303,7 +303,6 @@ prettyPrintSummary :: MonadIO m => Int -> RuntimeImplemented Logging m a -> m a
 prettyPrintSummary trunc h =
     flip handleLogging h $ \Log{..} -> liftIO $ do
-        let callStackSection = manyLines trunc (toS (prettyCallStack logCallStack))
         let LogData{..} = logData
         let dataSection =
                 if dataSummary == "" then truncate trunc (toSL dataPayload)
@@ -321,7 +320,6 @@             putText ("│ " <> yellow "User:    " <> logUserId <> ", "
                                    <> fromMaybe " - " logUserEmail <> ", "
                                    <> fromMaybe " - " logUserUsername)
-        putText     ("│ " <> yellow "Stack:   " <> callStackSection)
         putText      "└"
 
 -- | Catches all IO exceptions, logs them and throws them back. The callstack in the log is __not__