polysemy-log-co 0.3.0.2 → 0.4.0.0
raw patch · 4 files changed
+22/−22 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- lib/Polysemy/Log/Colog/Atomic.hs +2/−2
- lib/Polysemy/Log/Colog/Colog.hs +15/−15
- lib/Polysemy/Log/Colog/Conc.hs +2/−2
- polysemy-log-co.cabal +3/−3
lib/Polysemy/Log/Colog/Atomic.hs view
@@ -13,7 +13,7 @@ interpretCologAtomic' = interpret \case Colog.Log msg -> atomicModify' (msg :)-{-# INLINE interpretCologAtomic' #-}+{-# inline interpretCologAtomic' #-} -- |Interpret 'Colog.Log' by prepending each message to a list in an 'AtomicState', then interpret the 'AtomicState' in -- a 'TVar'.@@ -24,4 +24,4 @@ interpretCologAtomic sem = do tv <- newTVarIO [] runAtomicStateTVar tv (interpretCologAtomic' sem)-{-# INLINE interpretCologAtomic #-}+{-# inline interpretCologAtomic #-}
lib/Polysemy/Log/Colog/Colog.hs view
@@ -34,13 +34,13 @@ Severity.Warn -> Colog.Warning Severity.Error -> Colog.Error Severity.Crit -> Colog.Error-{-# INLINE severityToColog #-}+{-# inline severityToColog #-} -- |Convert a default log message into the /co-log/-native 'Colog.Message'. toColog :: LogEntry LogMessage -> Colog.Message toColog (LogEntry LogMessage {..} _ source) = Colog.Msg (severityToColog severity) source message-{-# INLINE toColog #-}+{-# inline toColog #-} -- |Reinterpret 'DataLog' as 'Colog.Log'. -- Maintains a context function as state that is applied to each logged message, allowing the context of a block to be@@ -57,7 +57,7 @@ liftT (Colog.log (convert (context msg))) Local f ma -> raise . interpretDataLogCologLocal convert (f . context) =<< runT ma-{-# INLINE interpretDataLogCologLocal #-}+{-# inline interpretDataLogCologLocal #-} -- |Reinterpret 'DataLog' as 'Colog.Log'. interpretDataLogColog ::@@ -66,7 +66,7 @@ InterpreterFor (DataLog a) r interpretDataLogColog = interpretDataLogCologLocal id id-{-# INLINE interpretDataLogColog #-}+{-# inline interpretDataLogColog #-} -- |Reinterpret 'DataLog', specialized to the default message, as 'Colog.Log'. interpretDataLogNative ::@@ -74,7 +74,7 @@ InterpreterFor (DataLog (LogEntry LogMessage)) r interpretDataLogNative = interpretDataLogCologLocal toColog id-{-# INLINE interpretDataLogNative #-}+{-# inline interpretDataLogNative #-} -- |Reinterpret 'Log' as 'Colog.Log', using the /polysemy-log/ default message. --@@ -87,7 +87,7 @@ interpretDataLogColog @(LogEntry LogMessage) . interpretLogDataLog . raiseUnder-{-# INLINE interpretLogColog #-}+{-# inline interpretLogColog #-} -- |Reinterpret 'Log' as 'Colog.Log', also interpreting 'GhcTime'. interpretLogColog' ::@@ -95,7 +95,7 @@ InterpretersFor [Log, GhcTime] r interpretLogColog' = interpretTimeGhc . interpretLogColog-{-# INLINE interpretLogColog' #-}+{-# inline interpretLogColog' #-} -- |Interpret 'Colog.Log' by printing to stdout, using the provided message formatter. interpretCologStdoutFormat ::@@ -106,7 +106,7 @@ InterpreterFor (Colog.Log msg) r interpretCologStdoutFormat format = runLogAction @m (contramap format Colog.logTextStdout)-{-# INLINE interpretCologStdoutFormat #-}+{-# inline interpretCologStdoutFormat #-} -- |Interpret 'Colog.Log' with the default message by printing to stdout, using the default message formatter. interpretCologStdout ::@@ -116,7 +116,7 @@ InterpreterFor (Colog.Log (LogEntry LogMessage)) r interpretCologStdout = interpretCologStdoutFormat @_ @m formatLogEntry-{-# INLINE interpretCologStdout #-}+{-# inline interpretCologStdout #-} -- |Interpret 'Log' fully in terms of 'Colog.Log', using the default message and stdout. interpretLogStdout ::@@ -128,7 +128,7 @@ interpretDataLogColog @(LogEntry LogMessage) . interpretLogDataLog . raiseUnder3-{-# INLINE interpretLogStdout #-}+{-# inline interpretLogStdout #-} -- |Like 'interpretLogStdout', but process messages concurrently. interpretLogStdoutConc ::@@ -141,7 +141,7 @@ interceptDataLogConc @(LogEntry LogMessage) 64 . interpretLogDataLog . raiseUnder3-{-# INLINE interpretLogStdoutConc #-}+{-# inline interpretLogStdoutConc #-} -- |Interpret 'Colog.Log' with the /co-log/ message protocol by printing to stdout, using /co-log/'s rich message -- formatter.@@ -152,7 +152,7 @@ InterpreterFor (Colog.Log Colog.Message) r interpretCologStdoutNative = runLogAction @m Colog.richMessageAction-{-# INLINE interpretCologStdoutNative #-}+{-# inline interpretCologStdoutNative #-} -- |Reinterpret 'Log' as 'Colog.Log', using the /co-log/ message protocol. interpretLogCologAsNative ::@@ -162,7 +162,7 @@ interpretDataLogNative . interpretLogDataLog . raiseUnder-{-# INLINE interpretLogCologAsNative #-}+{-# inline interpretLogCologAsNative #-} -- |Interpret 'Log' fully in terms of 'Colog.Log', using /co-log/'s message protocol and stdout. interpretLogStdoutAsNative ::@@ -173,7 +173,7 @@ interpretTimeGhc . interpretLogCologAsNative . raiseUnder-{-# INLINE interpretLogStdoutAsNative #-}+{-# inline interpretLogStdoutAsNative #-} -- |Interpret 'Log' fully in terms of 'Colog.Log', using /co-log/'s message protocol and stdout. interpretLogStdoutAsNativeConc ::@@ -186,4 +186,4 @@ interceptDataLogConc @(LogEntry LogMessage) 64 . interpretLogDataLog . raiseUnder2-{-# INLINE interpretLogStdoutAsNativeConc #-}+{-# inline interpretLogStdoutAsNativeConc #-}
lib/Polysemy/Log/Colog/Conc.hs view
@@ -24,7 +24,7 @@ where run worker = runLogAction (convertToLogAction @IO worker) sem-{-# INLINE interpretCologConcNativeWith #-}+{-# inline interpretCologConcNativeWith #-} -- |Interpret 'Colog.Log' using /co-log/'s concurrent logger with the default message and formatting. interpretCologConcNative ::@@ -32,4 +32,4 @@ InterpreterFor (Colog.Log (LogEntry LogMessage)) r interpretCologConcNative = interpretCologConcNativeWith defCapacity (contramap formatLogEntry Colog.logTextStdout)-{-# INLINE interpretCologConcNative #-}+{-# inline interpretCologConcNative #-}
polysemy-log-co.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: polysemy-log-co-version: 0.3.0.2+version: 0.4.0.0 synopsis: Colog Adapters for Polysemy-Log description: See <https://hackage.haskell.org/package/polysemy-log-co/docs/Polysemy-Log-Colog.html> category: Logging@@ -95,7 +95,7 @@ UndecidableInstances UnicodeSyntax ViewPatterns- ghc-options: -flate-specialise -fspecialise-aggressively -Wall -Wredundant-constraints -Wunused-packages+ ghc-options: -Wall -Wredundant-constraints -Wunused-packages -Widentities build-depends: base ==4.* , co-log >=0.4.0.1@@ -179,7 +179,7 @@ UndecidableInstances UnicodeSyntax ViewPatterns- ghc-options: -flate-specialise -fspecialise-aggressively -Wall -Wredundant-constraints -Wunused-packages -threaded -rtsopts -with-rtsopts=-N+ ghc-options: -Wall -Wredundant-constraints -Wunused-packages -Widentities -threaded -rtsopts -with-rtsopts=-N build-depends: base ==4.* , co-log