diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-09 12:41:03 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-09 12:41:03 +0100 |
| commit | cdf88f13008cd3f6511d466c1078ae7b2f983faf (patch) | |
| tree | a881aac3c0db1377d667955120bbf26fa4894b6f /src/Micro/Env.hs | |
| parent | 69c02169ef381d394323e9d26d0cb48db89fb7d4 (diff) | |
| download | micro-lang-hs-cdf88f13008cd3f6511d466c1078ae7b2f983faf.tar.gz micro-lang-hs-cdf88f13008cd3f6511d466c1078ae7b2f983faf.zip | |
Refactored the compiler result to plug in the code generator
Also some tweaks in error reporting.
Diffstat (limited to 'src/Micro/Env.hs')
| -rw-r--r-- | src/Micro/Env.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |