diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-10 20:19:24 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-10 20:19:24 +0100 |
| commit | 95d1f3cca8696fea69956b260e8b5d16e9ab3ee3 (patch) | |
| tree | 87ca7cdec6d5831264f01314effda9d31376e967 /src | |
| parent | 5e1de5649a8d2983a1a81e59f47df282e71f9fe6 (diff) | |
| download | micro-lang-hs-95d1f3cca8696fea69956b260e8b5d16e9ab3ee3.tar.gz micro-lang-hs-95d1f3cca8696fea69956b260e8b5d16e9ab3ee3.zip | |
Doesn't belong here
Diffstat (limited to 'src')
| -rw-r--r-- | src/Micro/Compiler.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Micro/Compiler.hs b/src/Micro/Compiler.hs index 70f442f..b3ec8a1 100644 --- a/src/Micro/Compiler.hs +++ b/src/Micro/Compiler.hs @@ -18,8 +18,7 @@ version = "0.1.0" data CompState = CompState { stEnv :: Env, - stErr :: [Error], - stAst :: [A.Expr] + stErr :: [Error] } deriving (Show) @@ -40,7 +39,7 @@ successResult :: String -> Result successResult out = Result {crType = Nothing, crExit = Right out} startState :: CompState -startState = CompState emptyEnv [] [] +startState = CompState emptyEnv [] -- | @foldlEither fn init xs@ folds left @xs@ applying a function @fn@ that -- returns either, returning accumulated right and the collected lefts as a |