aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2022-08-13 17:17:45 +0100
committerJuan J. Martinez <jjm@usebox.net>2022-08-13 17:17:45 +0100
commitf9069e14e80eb2c8b134a0297fa17b81742c8a03 (patch)
treea35cb4c60aaaa989a00466a586e35158def25546
parent241b6af0794e020a29da9205c3843554ce0a43b5 (diff)
downloadmicro-lang-hs-f9069e14e80eb2c8b134a0297fa17b81742c8a03.tar.gz
micro-lang-hs-f9069e14e80eb2c8b134a0297fa17b81742c8a03.zip
Typo
-rw-r--r--src/Env.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Env.hs b/src/Env.hs
index 678903e..1b98e9f 100644
--- a/src/Env.hs
+++ b/src/Env.hs
@@ -55,7 +55,7 @@ addSym (Env m parent) (id, typ, pos) = case getSym env id of
addEnv :: Env -> Env
addEnv env = Env Map.empty $ Just env
--- | @addSymUniq e s@ add a local symbol @s@ to the enviroment @e@ if it
+-- | @addSymUniq e s@ adds a local symbol @s@ to the enviroment @e@ if it
-- doesn't exist.
addSymUniq :: Env -> Sym -> Either Error Env
addSymUniq ev (id, typ, pos) = case getSyml ev id of