diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,2 +1,5 @@
+# 0.2.0.1
+Fixed wrong pretty printing
+
 # 0.2.0.0
 Removed sentry support to reduce dependencies
diff --git a/simple-logging.cabal b/simple-logging.cabal
--- a/simple-logging.cabal
+++ b/simple-logging.cabal
@@ -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
diff --git a/src/Interlude.hs b/src/Interlude.hs
--- a/src/Interlude.hs
+++ b/src/Interlude.hs
@@ -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
diff --git a/test/Module1.hs b/test/Module1.hs
--- a/test/Module1.hs
+++ b/test/Module1.hs
@@ -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"