polysemy-log-di 0.3.0.2 → 0.4.0.0

raw patch · 3 files changed

+10/−10 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• lib/Polysemy/Log/Di/Atomic.hs +2/−2
• lib/Polysemy/Log/Di/Di.hs +5/−5
• polysemy-log-di.cabal +3/−3

@@ -17,7 +17,7 @@     Di.Flush -> pureT ()     Di.Local _ ma -> runTSimple ma     Di.Fetch -> pureT Nothing-{-# INLINE interpretDiAtomic' #-}+{-# inline interpretDiAtomic' #-}  -- |Interpret 'Di.Di' by prepending each message to a list in an 'AtomicState', then interpret the -- 'AtomicState' in a 'TVar'.@@ -28,4 +28,4 @@ interpretDiAtomic sem = do   tv <- newTVarIO []   runAtomicStateTVar tv (interpretDiAtomic' sem)-{-# INLINE interpretDiAtomic #-}+{-# inline interpretDiAtomic #-}

@@ -34,7 +34,7 @@       liftT (Di.log @_ @path (extractLevel msg) (context msg))     Local f ma ->       raise . interpretDataLogDiLocal @_ @path extractLevel (f . context) =<< runT ma-{-# INLINE interpretDataLogDiLocal #-}+{-# inline interpretDataLogDiLocal #-}  -- |Reinterpret 'DataLog' as 'Di.Di', using the provided function to extract the log level from the message. interpretDataLogDi ::@@ -44,7 +44,7 @@   InterpreterFor (DataLog msg) r interpretDataLogDi extractLevel =   interpretDataLogDiLocal @_ @path extractLevel id-{-# INLINE interpretDataLogDi #-}+{-# inline interpretDataLogDi #-}  -- |Reinterpret 'Log' as 'Di.Di', using the /polysemy-log/ default message. --@@ -58,7 +58,7 @@   interpretDataLogDi @_ @path (LogMessage.severity . LogEntry.message) .   interpretLogDataLog .   raiseUnder-{-# INLINE interpretLogDi #-}+{-# inline interpretLogDi #-}  -- |Reinterpret 'Log' as 'Di.Di', also interpreting 'GhcTime'. interpretLogDi' ::@@ -70,7 +70,7 @@   interpretLogDataLog' .   raiseUnder .   raise2Under-{-# INLINE interpretLogDi' #-}+{-# inline interpretLogDi' #-}  -- |Reinterpret 'Log' as 'Di.Di' concurrently. interpretLogDiConc ::@@ -82,4 +82,4 @@   interpretDataLogDi @_ @path (LogMessage.severity . LogEntry.message) .   interpretLogDataLogConc maxQueued .   raiseUnder-{-# INLINE interpretLogDiConc #-}+{-# inline interpretLogDiConc #-}

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           polysemy-log-di-version:        0.3.0.2+version:        0.4.0.0 synopsis:       Di Adapters for Polysemy-Log description:    See <https://hackage.haskell.org/package/polysemy-log-di/docs/Polysemy-Log-Di.html> category:       Logging@@ -94,7 +94,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.*     , di-polysemy >=0.2.0.0@@ -174,7 +174,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.*     , polysemy >=1.5