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

Added somewhat detailed README

Browse source
This commit is contained in:
sebastian 2023-04-02 13:42:47 +02:00
parent aaaff776e0
commit 03a486410f
3 changed files with 210 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/Desugar/Desugar.hs
View file

@ -19,7 +19,6 @@ desugarBind (Bind name args e) = Bind name args (desugarExp e)
desugarExp :: Exp -> Exp
desugarExp = \case
EAppInf e2 e1 -> (EApp `on` desugarExp) e1 e2
EApp e1 e2 -> (EApp `on` desugarExp) e1 e2
EAdd e1 e2 -> (EAdd `on` desugarExp) e1 e2
EAbs i e -> EAbs i (desugarExp e)