fix incomplete byTag

This commit is contained in:
crumbtoo committed 2024-02-07 14:26:47 -07:00
1 parent 77d27dccde
commit 719d5a4089
2 files changed
+7 -4

No files matched your search

+1
View File
@@ -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