-ddump-eval

2024-02-01 12:14:43 -07:00
parent 7a6518583f
commit ff5a5af9bc
2 changed files with 19 additions and 2 deletions
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -187,9 +187,9 @@ prettyRlpcMsg m                                  = render $ docRlpcErr m

 prettyRlpcDebugMsg :: MsgEnvelope RlpcError -> String
 prettyRlpcDebugMsg msg =
-        T.unpack . foldMap mkLine $ ts
+        T.unpack . foldMap mkLine $ [ t' | t <- ts, t' <- T.lines t ]
    where
-        mkLine s = tag <> ": " <> s <> "\n"
+        mkLine s = "-d" <> tag <> ": " <> s <> "\n"
        Text ts = msg ^. msgDiagnostic
        SevDebug tag = msg ^. msgSeverity