fix incomplete byTag

2024-02-07 14:26:47 -07:00
parent 77d27dccde
commit 719d5a4089
2 changed files with 7 additions and 4 deletions
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -183,6 +183,7 @@ putRlpcErrs opts = filter byTag
        byTag :: MsgEnvelope RlpcError -> Bool
        byTag (view msgSeverity -> SevDebug t) =
            t `S.member` dflags
+        byTag _ = True

 prettyRlpcMsg :: MsgEnvelope RlpcError -> String
 prettyRlpcMsg m@(view msgSeverity -> SevDebug _) = prettyRlpcDebugMsg m