polysemy-log-co 0.2.2.0 → 0.2.2.1

raw patch · 2 files changed

+45/−7 lines, 2 filesdep −string-interpolatedep ~polysemydep ~reludePVP ok

version bump matches the API change (PVP)

Dependencies removed: string-interpolate

Dependency ranges changed: polysemy, relude

API changes (from Hackage documentation)

Files

• polysemy-log-co.cabal +6/−7
• test/Polysemy/Log/Colog/Test/ExampleTest.hs +39/−0

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           polysemy-log-co-version:        0.2.2.0+version:        0.2.2.1 synopsis:       polysemy-log interpreter for co-log description:    See <https://hackage.haskell.org/package/polysemy-log-co/docs/Polysemy-Log-Colog.html> category:       Logging@@ -101,12 +101,11 @@     , co-log >=0.4.0.1 && <0.5     , co-log-core >=0.2.1 && <0.3     , co-log-polysemy >=0.0.1.2 && <0.1-    , polysemy >=1.3 && <1.6+    , polysemy ==1.5.*     , polysemy-conc >=0.1.0.0 && <0.2     , polysemy-log     , polysemy-time >=0.1.1.0 && <0.2-    , relude >=0.5 && <0.8-    , string-interpolate >=0.2.1+    , relude >=0.7 && <1.2     , text     , time   mixins:@@ -120,6 +119,7 @@   main-is: Main.hs   other-modules:       Polysemy.Log.Colog.Test.ConcTest+      Polysemy.Log.Colog.Test.ExampleTest       Polysemy.Log.Colog.Test.SimpleTest       Paths_polysemy_log_co   hs-source-dirs:@@ -189,14 +189,13 @@     , co-log-core >=0.2.1 && <0.3     , co-log-polysemy >=0.0.1.2 && <0.1     , hedgehog-    , polysemy >=1.3 && <1.6+    , polysemy ==1.5.*     , polysemy-conc >=0.1.0.0 && <0.2     , polysemy-log     , polysemy-log-co     , polysemy-test     , polysemy-time >=0.1.1.0 && <0.2-    , relude >=0.5 && <0.8-    , string-interpolate >=0.2.1+    , relude >=0.7 && <1.2     , tasty     , tasty-hedgehog     , text

@@ -0,0 +1,39 @@+module Polysemy.Log.Colog.Test.ExampleTest where++import Colog (logTextStdout)+import Colog.Polysemy (runLogAction)+import Polysemy (runM)++import Polysemy.Log.Colog (interpretDataLogColog, interpretLogStdout)+import qualified Polysemy.Log.Data.DataLog as DataLog+import Polysemy.Log.Data.DataLog (DataLog)+import qualified Polysemy.Log.Data.Log as Log+import Polysemy.Log.Data.Log (Log)++progSimple ::+  Member Log r =>+  Sem r ()+progSimple = do+  Log.debug "debug"+  Log.warn "warn"++data Message =+  Message {+    severity :: Text,+    message :: Text+  }+  deriving (Eq, Show)++progData ::+  Member (DataLog Message) r =>+  Sem r ()+progData = do+  DataLog.dataLog (Message "warn" "warning!")+  DataLog.local (\ msg@Message{message} -> msg {message = "context: " <> message}) do+    DataLog.dataLog (Message "error" "segfault!")++main :: IO ()+main =+  runM do+    interpretLogStdout progSimple+    runLogAction @IO (contramap message logTextStdout) $ interpretDataLogColog @Message progData