From 5e1de5649a8d2983a1a81e59f47df282e71f9fe6 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Sat, 10 Sep 2022 19:42:50 +0100 Subject: Renamed constructor --- src/Micro/Compiler.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Micro/Compiler.hs') diff --git a/src/Micro/Compiler.hs b/src/Micro/Compiler.hs index d27960a..70f442f 100644 --- a/src/Micro/Compiler.hs +++ b/src/Micro/Compiler.hs @@ -23,7 +23,7 @@ data CompState = CompState } deriving (Show) -data Result = CompResult +data Result = Result { -- last resolved type crType :: Maybe A.Type, -- only in last call @@ -31,13 +31,13 @@ data Result = CompResult } typeResult :: Maybe A.Type -> Result -typeResult t = CompResult {crType = t, crExit = Left []} +typeResult t = Result {crType = t, crExit = Left []} errorResult :: [Error] -> Result -errorResult err = CompResult {crType = Nothing, crExit = Left err} +errorResult err = Result {crType = Nothing, crExit = Left err} successResult :: String -> Result -successResult out = CompResult {crType = Nothing, crExit = Right out} +successResult out = Result {crType = Nothing, crExit = Right out} startState :: CompState startState = CompState emptyEnv [] [] -- cgit v1.2.3