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

Minor rewrite of tc. Some bugs still left

Browse source
This commit is contained in:
sebastianselander 2023-02-14 22:03:56 +01:00
parent 6218efac20
commit 5d247057f5
6 changed files with 256 additions and 128 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/Main.hs
View file

@ -5,8 +5,9 @@ import Grammar.Par (myLexer, pProgram)
import Grammar.Print (printTree)
import System.Environment (getArgs)
import System.Exit (exitFailure, exitSuccess)
import TypeChecker.TypeChecker (typecheck)
import Renamer.Renamer (rename)
import TypeChecker.TypeChecker (typecheck)
import Renamer.Renamer (rename)
import Grammar.Print (prt)
main :: IO ()
main = getArgs >>= \case
@ -19,10 +20,14 @@ main = getArgs >>= \case
putStrLn err
exitFailure
Right prg -> case rename prg of
Right prg -> do
putStrLn "RENAME SUCCESSFUL"
putStrLn $ printTree prg
Left err -> do
putStrLn "FAILED RENAMING"
putStrLn . show $ err
exitFailure
putStrLn "FAILED RENAMING"
putStrLn . show $ err
exitFailure
Right prg -> case typecheck prg of
Left err -> do
putStrLn "TYPECHECK ERROR"
putStrLn . show $ err
exitFailure
Right prg -> do
putStrLn . printTree $ prg