From 95d1f3cca8696fea69956b260e8b5d16e9ab3ee3 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Sat, 10 Sep 2022 20:19:24 +0100 Subject: Doesn't belong here --- src/Micro/Compiler.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src') 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 -- cgit v1.2.3