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

Refactored. Cleaner version, ala Martin version

Browse source
This commit is contained in:
sebastianselander 2023-02-15 19:52:52 +01:00
parent b03df17e34
commit f1b77a7efa
4 changed files with 33 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Renamer/RenamerIr.hs
View file

@ -45,6 +45,7 @@ instance Print RBind where
[ prt 0 x
, doc (showString "=")
, prt 0 e
, doc (showString "\n")
]
instance Print RExp where
@ -55,4 +56,4 @@ instance Print RExp where
RConst n -> prPrec i 3 (concatD [prt 0 n])
RApp e e1 -> prPrec i 2 (concatD [prt 2 e, prt 3 e1])
RAdd e e1 -> prPrec i 1 (concatD [prt 1 e, doc (showString "+"), prt 2 e1])
RAbs u id e -> prPrec i 0 (concatD [doc (showString "\\"), prt 0 ("var" ++ show u), doc (showString "."), prt 0 e])
RAbs u id e -> prPrec i 0 (concatD [doc (showString "λ"), prt 0 ("var" ++ show u), doc (showString "."), prt 0 e])