system F

2024-04-15 10:07:20 -06:00
parent 00e085135c
commit 63768605fa
4 changed files with 102 additions and 38 deletions
@@ -14,6 +14,9 @@ module Compiler.RlpcError
    -- * Located Comonad
    , Located(..)
    , SrcSpan(..)
+
+    -- * Common error messages
+    , undefinedVariableErr
    )
    where
 ----------------------------------------------------------------------------------
@@ -74,3 +77,8 @@ debugMsg tag e = MsgEnvelope
    , _msgSeverity = SevDebug tag
    }

+undefinedVariableErr :: Text -> RlpcError
+undefinedVariableErr n = Text
+    [ "Variable not in scope: `" <> n <> "'."
+    ]
+