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

Fix first unnecessary supercombinator

Browse source
This commit is contained in:
Martin Fredin 2023-02-09 17:53:39 +01:00
parent 69254f8032
commit 08917be1c6
10 changed files with 66 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Main.hs
View file

@ -18,9 +18,13 @@ main = getArgs >>= \case
putStrLn err
exitFailure
Right prg -> do
putStrLn "-- Parser"
putStrLn "-- Parse"
putStrLn $ printTree prg
putStrLn "\n--Lamda lifter"
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
exitSuccess