simple-logging 0.2.0.0 → 0.2.0.1

raw patch · 4 files changed

+59/−53 lines, 4 filesdep +simple-loggingdep −loggingdep ~aesondep ~basedep ~bytestring

Dependencies added: simple-logging

Dependencies removed: logging

Dependency ranges changed: aeson, base, bytestring, exceptions, iso8601-time, lens, mtl, simple-effects, string-conv, text, time, vector

Files

• CHANGELOG.md +3/−0
• simple-logging.cabal +54/−50
• src/Interlude.hs +1/−1
• test/Module1.hs +1/−2

@@ -1,2 +1,5 @@+# 0.2.0.1
+Fixed wrong pretty printing
+
 # 0.2.0.0
 Removed sentry support to reduce dependencies

@@ -1,54 +1,58 @@-name:                simple-logging-version:             0.2.0.0-synopsis:            Logging effect to plug into the simple-effects framework-homepage:            https://gitlab.com/haskell-hr/logging-license:             MIT-license-file:        LICENSE-author:              Luka Horvat-maintainer:          luka.horvat9@gmail.com-copyright:           2017 Luka Horvat-category:            Logging-build-type:          Simple-extra-source-files:  CHANGELOG.md-cabal-version:       >=1.10+name: simple-logging+version: 0.2.0.1+cabal-version: >=1.10+build-type: Simple+license: MIT+license-file: LICENSE+copyright: 2017 Luka Horvat+maintainer: luka.horvat9@gmail.com+homepage: https://gitlab.com/haskell-hr/logging+synopsis: Logging effect to plug into the simple-effects framework+category: Logging+author: Luka Horvat+extra-source-files:+    CHANGELOG.md +source-repository head+    type: git+    location: https://gitlab.com/haskell-hr/logging.git+ library-  hs-source-dirs:      src-  exposed-modules:     Control.Effects.Logging-  other-modules:       Interlude-  build-depends:       base >= 4.7 && < 5-                     , aeson-                     , vector-                     , time-                     , bytestring-                     , iso8601-time-                     , text-                     , simple-effects-                     , exceptions-                     , mtl-                     , string-conv-                     , lens-  default-language:    Haskell2010-  ghc-options:         -Wall-  default-extensions:  NoImplicitPrelude-                       OverloadedStrings+    exposed-modules:+        Control.Effects.Logging+    build-depends:+        base >=4.7 && <5,+        aeson >=1.0.2.1,+        vector >=0.11.0.0,+        time >=1.6.0.1,+        bytestring >=0.10.8.1,+        iso8601-time >=0.1.4,+        text >=1.2.2.1,+        simple-effects >=0.9.0.0,+        exceptions >=0.8.3,+        mtl >=2.2.1,+        string-conv >=0.1.2,+        lens >=4.15.1+    default-language: Haskell2010+    default-extensions: NoImplicitPrelude OverloadedStrings+                        TypeFamilies+    hs-source-dirs: src+    other-modules:+        Interlude+    ghc-options: -Wall  test-suite logging-test-  other-modules:       Module1-  type:                exitcode-stdio-1.0-  hs-source-dirs:      test-  main-is:             Spec.hs-  build-depends:       base-                     , logging-                     , simple-effects >= 0.9.0.0-  ghc-options:         -threaded -rtsopts -with-rtsopts=-N-  default-language:    Haskell2010-  default-extensions:  MultiParamTypeClasses-                       TypeFamilies-                       NoMonomorphismRestriction-                       FlexibleContexts-                       NoImplicitPrelude--source-repository head-  type:     git-  location: https://gitlab.com/haskell-hr/logging.git+    type: exitcode-stdio-1.0+    main-is: Spec.hs+    build-depends:+        base >=4.9.1.0,+        simple-logging >=0.2.0.1,+        simple-effects >=0.9.0.0+    default-language: Haskell2010+    default-extensions: MultiParamTypeClasses OverloadedStrings+                        TypeFamilies NoMonomorphismRestriction FlexibleContexts+                        NoImplicitPrelude+    hs-source-dirs: test+    other-modules:+        Module1+    ghc-options: -threaded -rtsopts -with-rtsopts=-N

@@ -22,7 +22,7 @@ pshow = toS . show
 
 putText :: MonadIO m => Text -> m ()
-putText = print
+putText = liftIO . putStrLn . toS
 
 print :: (Show a, MonadIO m) => a -> m ()
 print = liftIO . Prelude.print . show

@@ -3,10 +3,9 @@ import Interlude
 
 import Control.Effects.Logging
-import Control.Effects.Logging.Sentry
 
 main :: IO ()
-main = logToSentry (sentryServiceFromDSN "http://2b34b80ce7804b28b206e04ac633da02:b7c32aaa5e764565a4e6b7765164cdea@sentry.deegeet.al/4") $
+main = prettyPrintSummary 100 $
     collectCrumbs $ messagesToCrumbs $ do
         layerLogs (Context "layer1") $ do
             logInfo "Hello from layer1"