Make debug output even prettier

smucclaw · Oct 19, 2021 · 74e1ee5 · 74e1ee5
1 parent 25ea2aa
commit 74e1ee5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/mengwong/mp/src/Lib.hs b/mengwong/mp/src/Lib.hs
@@ -63,13 +63,13 @@ debugPrint :: String -> Parser ()
 debugPrint str = whenDebug $ do
   lookingAt <- lookAhead (getToken :: Parser MyToken)
   depth <- asks callDepth
-  myTraceM $ str <> " running. depth=" <> show depth <> "; looking at: " <> show lookingAt
+  myTraceM $ "/ " <> str <> " running. depth=" <> show depth <> "; looking at: " <> show lookingAt
 
 debugName :: Show a => String -> Parser a -> Parser a
 debugName name p = do
   debugPrint name
   res <- local (increaseNestLevel name) p
-  myTraceM $ name ++ " has returned " ++ show res
+  myTraceM $ "\\ " <> name <> " has returned " <> show res
   return res
 
 -- | withDepth n p sets the depth to n for parser p