Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor changes. Added a comment

Browse source
This commit is contained in:
sebastianselander 2023-02-15 18:10:28 +01:00
parent 7619e36c60
commit b03df17e34
2 changed files with 29 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

37
src/Main.hs
View file

@ -19,20 +19,29 @@ main = getArgs >>= \case
putStrLn "SYNTAX ERROR"
putStrLn err
exitFailure
Right prg -> case rename prg of
Left err -> do
putStrLn "FAILED RENAMING"
putStrLn . show $ err
exitFailure
Right prg -> case typecheck prg of
Right prg -> do
putStrLn ""
putStrLn " ----- PARSER ----- "
putStrLn ""
putStrLn . printTree $ prg
putStrLn . show $ prg
case rename prg of
Left err -> do
putStrLn "TYPECHECK ERROR"
putStrLn . show $ err
exitFailure
Right prg -> do
putStrLn "FAILED RENAMING"
putStrLn . show $ err
exitFailure
Right prg ->do
putStrLn ""
putStrLn " ----- RENAMER ----- "
putStrLn ""
putStrLn . printTree $ prg
putStrLn ""
putStrLn " ----- ADT ----- "
putStrLn ""
putStrLn $ show prg
case typecheck prg of
Left err -> do
putStrLn "TYPECHECK ERROR"
putStrLn . show $ err
exitFailure
Right prg -> do
putStrLn ""
putStrLn " ----- TYPECHECKER ----- "
putStrLn ""
putStrLn . printTree $ prg