From cdf88f13008cd3f6511d466c1078ae7b2f983faf Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Fri, 9 Sep 2022 12:41:03 +0100
Subject: Refactored the compiler result to plug in the code generator

Also some tweaks in error reporting.
---
 src/Micro/Env.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Micro/Env.hs')

diff --git a/src/Micro/Env.hs b/src/Micro/Env.hs
index 4174158..7259deb 100644
--- a/src/Micro/Env.hs
+++ b/src/Micro/Env.hs
@@ -58,6 +58,6 @@ addEnv env = Env Map.empty $ Just env
 addSymUniq :: Env -> Sym -> Either Error Env
 addSymUniq ev (id, typ, priv, pos) = case getSyml ev id of
   Nothing -> Right $ addSym ev sym
-  Just (_, _, _, p) -> Left $ Error AlreadyDefined ("symbol \"" ++ id ++ "\" already defined in " ++ show p) pos
+  Just (_, _, _, p) -> Left $ Error AlreadyDefined ("\"" ++ id ++ "\" already defined in " ++ show p) pos
   where
     sym = (id, typ, priv, pos)
-- 
cgit v1.2.3