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/Compiler/RlpcError.hs
+++ b/src/Compiler/RlpcError.hs
@@ -34,7 +34,7 @@ data MsgEnvelope e = MsgEnvelope
   deriving (Functor, Show)

 newtype RlpcError = Text [Text]
-    deriving Show
+               deriving Show

 instance IsString RlpcError where
    fromString = Text . pure . T.pack
@@ -47,7 +47,7 @@ instance IsRlpcError RlpcError where

 data Severity = SevWarning
              | SevError
-              | SevDebug Text
+              | SevDebug Text -- ^ Tag
              deriving Show

 makeLenses ''MsgEnvelope