errors!

src/Compiler/RLPC.hs

@@ -18,6 +18,7 @@ module Compiler.RLPC
     , RLPCOptions(RLPCOptions)
     , IsRlpcError(..)
     , RlpcError(..)
+    , MsgEnvelope(..)
     , addFatal
     , addWound
     , MonadErrorful

src/Compiler/RlpcError.hs

@@ -3,13 +3,14 @@
 module Compiler.RlpcError
     ( IsRlpcError(..)
     , MsgEnvelope(..)
-    , Severity
+    , Severity(..)
     , RlpcError(..)
     , SrcSpan(..)
     , msgSpan
     , msgDiagnostic
     , msgSeverity
     , liftRlpcErrors
+    , errorMsg
     )
     where
 ----------------------------------------------------------------------------------
@@ -60,3 +61,10 @@ liftRlpcErrors = mapErrorful liftRlpcError
 instance (IsRlpcError e) => IsRlpcError (MsgEnvelope e) where
     liftRlpcError msg = msg ^. msgDiagnostic & liftRlpcError
 
+errorMsg :: SrcSpan -> e -> MsgEnvelope e
+errorMsg s e = MsgEnvelope
+    { _msgSpan = s
+    , _msgDiagnostic = e
+    , _msgSeverity = SevError
+    }
+