From ccb2e6e02f39f6cf5f7beb4aa64bec948a8c7edf Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 21 Aug 2022 08:07:52 +0100
Subject: Qualified undefined variable error, added test

---
 src/Compiler.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Compiler.hs')

diff --git a/src/Compiler.hs b/src/Compiler.hs
index 0228b90..bdbc5f3 100644
--- a/src/Compiler.hs
+++ b/src/Compiler.hs
@@ -131,7 +131,7 @@ compile x = do
       (ev, errs) <- get
       case getSym ev ident of
         Just (_, t, _) -> return $ Right $ Just t
-        Nothing -> addError $ Error GenericError ("undefined variable \"" ++ ident ++ "\"") pos
+        Nothing -> addError $ Error Undefined ("undefined variable \"" ++ ident ++ "\"") pos
 
 compileAll :: [A.Expr] -> State CompState CompResult
 compileAll (x : xs) = do
-- 
cgit v1.2.3