ppr debug flags

ddump-parsed
2024-02-08 09:26:53 -07:00
parent 1079fc7c9b
commit 6c943af4a1
14 changed files with 244 additions and 41 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
-            addDebugMsg "dump-ast" . show $ p
+            addDebugMsg "dump-parsed-core" . show $ p
            pure p

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