debug tags

2024-02-01 11:57:37 -07:00
parent dda0e17358
commit 7a6518583f
3 changed files with 67 additions and 54 deletions
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -234,7 +234,7 @@ parseCoreProgR = ddumpast <=< (hoistRlpcT generalise . parseCoreProg)

        ddumpast :: Program' -> RLPCT m Program'
        ddumpast p = do
-            whenDFlag "dump-ast" $ (addDebugMsg . show $ p)
+            addDebugMsg "dump-ast" . show $ p
            pure p

 happyBind :: RLPC a -> (a -> RLPC b) -> RLPC b