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

Some clean up and documenting

Browse source
This commit is contained in:
Martin Fredin 2023-02-09 20:24:25 +01:00
parent 07bec3e7ef
commit 59fb773bc1
2 changed files with 26 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/Main.hs
View file

@ -20,12 +20,13 @@ main = getArgs >>= \case
Right prg -> do
putStrLn "-- Parse"
putStrLn $ printTree prg
putStrLn "\n-- Abstract"
putStrLn . printTree $ (abstract . freeVars) prg
putStrLn "\n-- Rename"
putStrLn . printTree $ (rename . abstract . freeVars) prg
-- putStrLn "\n-- Abstract"
-- putStrLn . printTree $ (abstract . freeVars) prg
-- putStrLn "\n-- Rename"
-- putStrLn . printTree $ (rename . abstract . freeVars) prg
putStrLn "\n-- Lamda lifter"
putStrLn . printTree $ lambdaLift prg
putStrLn ""
exitSuccess