Use pretty-show when debug tracing actions and models

Author: fizruk

package.yaml

@@ -31,6 +31,7 @@ dependencies:
 - monad-control
 - mtl
 - profunctors
+- pretty-show
 - servant
 - servant-client
 - split

src/Telegram/Bot/Simple/Debug.hs

@@ -9,6 +9,7 @@ import           Data.Monoid                ((<>))
 import qualified Data.Text.Lazy             as Text
 import qualified Data.Text.Lazy.Encoding    as Text
 import           Debug.Trace                (trace)
+import           Text.Show.Pretty           (ppShow)
 
 import qualified Telegram.Bot.API           as Telegram
 import           Telegram.Bot.Simple.BotApp
@@ -47,7 +48,7 @@ traceTelegramUpdatesJSON = traceTelegramUpdatesWith ppAsJSON
 
 -- | Trace (debug print) every update using 'Show' instance.
 traceTelegramUpdatesShow :: BotApp model action -> BotApp model action
-traceTelegramUpdatesShow = traceTelegramUpdatesWith show
+traceTelegramUpdatesShow = traceTelegramUpdatesWith ppShow
 
 -- ** Trace bot actions
 
@@ -59,8 +60,8 @@ data TracedAction action
 
 -- | Pretty print 'TraceActionType'.
 ppTracedAction :: Show action => TracedAction action -> String
-ppTracedAction (TracedIncomingAction action) = "Incoming: " <> show action
-ppTracedAction (TracedIssuedAction   action) = "Issued:   " <> show action
+ppTracedAction (TracedIncomingAction action) = "Incoming: " <> ppShow action
+ppTracedAction (TracedIssuedAction   action) = "Issued:   " <> ppShow action
 
 -- | Trace (debug print) every incoming and issued action.
 traceBotActionsWith
@@ -94,18 +95,18 @@ traceBotModelWith
   -> BotApp model action
   -> BotApp model action
 traceBotModelWith f botApp = botApp
-  { botInitialModel = traceModel (botInitialModel botApp)
+  { botInitialModel = newInitialModel
   , botHandler = newHandler
   }
     where
+      !newInitialModel = traceModel (botInitialModel botApp)
+      newHandler action !model = traceModel <$> botHandler botApp action model
       traceModel = trace <$> f <*> id
 
-      newHandler action model = traceModel <$> botHandler botApp action model
-
 -- | Trace (debug print) bot model using 'Show' instance.
 traceBotModelShow
   :: Show model => BotApp model action -> BotApp model action
-traceBotModelShow = traceBotModelWith show
+traceBotModelShow = traceBotModelWith ppShow
 
 -- | Trace (debug print) bot model using 'Show' instance.
 traceBotModelJSON

telegram-bot-simple.cabal

@@ -2,7 +2,7 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 2383791691460423691f656814b763382f34aa7b27e58d0417e8c3544729c884
+-- hash: 4f2c1b80f5351f2590eeea8c2dc55bf2cc16442fd9da17e54e1467081d5bdcc5
 
 name:           telegram-bot-simple
 version:        0.1.0
@@ -63,6 +63,7 @@ library
     , http-client-tls
     , monad-control
     , mtl
+    , pretty-show
     , profunctors
     , servant
     , servant-client
@@ -91,6 +92,7 @@ executable example-echo-bot
     , http-client-tls
     , monad-control
     , mtl
+    , pretty-show
     , profunctors
     , servant
     , servant-client
@@ -120,6 +122,7 @@ executable example-todo-bot
     , http-client-tls
     , monad-control
     , mtl
+    , pretty-show
     , profunctors
     , servant
     , servant-client