diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-10 15:14:12 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-10 15:14:12 +0100 |
| commit | a88e94504679a5aeaf102c975d873cbc14620f61 (patch) | |
| tree | a6cbbcf14bae1b2f0c82aa5834492963bb48d17e /src/Micro/Env.hs | |
| parent | 22c9414d07e6514fd0329fbceb3132766beb3cda (diff) | |
| download | micro-lang-hs-a88e94504679a5aeaf102c975d873cbc14620f61.tar.gz micro-lang-hs-a88e94504679a5aeaf102c975d873cbc14620f61.zip | |
Not needed
Diffstat (limited to 'src/Micro/Env.hs')
| -rw-r--r-- | src/Micro/Env.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Micro/Env.hs b/src/Micro/Env.hs index 9de7248..731f19a 100644 --- a/src/Micro/Env.hs +++ b/src/Micro/Env.hs @@ -15,12 +15,9 @@ data Sym = Sym } deriving (Show) -newSym :: A.Ident -> A.Type -> Bool -> Bool -> SourcePos -> Sym -newSym a b c d e = Sym {symId = a, symType = b, symPriv = c, symRef = d, symPos = e} - -- XXX: this name is not good toSym :: Bool -> A.FuncParam -> Sym -toSym ref (a, b, c, d) = newSym a b c ref d +toSym ref (a, b, c, d) = Sym a b c ref d type SymMap = Map.Map A.Ident Sym |