Skip to content
This repository has been archived by the owner on Dec 19, 2023. It is now read-only.

Commit

Permalink
Fix norm
Browse files Browse the repository at this point in the history
  • Loading branch information
@guillaumeAbel
guillaumeAbel committed Dec 17, 2023
1 parent 71d04cc commit 4daa61a
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions app/Run.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -26,7 +26,8 @@ printErrors hand (Env defines_ errors_) =

checkComputing :: HHHandle -> (Env, Maybe Result) -> IO ()
checkComputing hand (env, Nothing) = printErrors hand env
checkComputing hand (env, Just result) = print result >> handleInput hand env []
checkComputing hand (env, Just result) =
print result >> handleInput hand env []

checkParsing :: HHHandle -> String -> Maybe (Tree, String) -> Env -> IO ()
checkParsing hand str Nothing env = handleInput hand env str
Expand All @@ -35,7 +36,8 @@ checkParsing hand _ (Just (tree, _)) env =

checkInput :: HHHandle -> String -> Env -> IO ()
checkInput _ ":q" _ = return ()
checkInput hand input env = checkParsing hand input (runParser (parseTree) input) env
checkInput hand input env =
checkParsing hand input (runParser (parseTree) input) env

checkEOF :: HHHandle -> Env -> String -> Bool -> IO ()
checkEOF _ _ _ True = return ()
Expand Down

0 comments on commit 4daa61a

Please sign in to comment.