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

Fixed desugar and made interpret

Browse source
This commit is contained in:
sebastianselander 2023-05-08 15:13:46 +02:00
parent a14ed7d026
commit c98166392b
2 changed files with 47 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Desugar/Desugar.hs
View file

@ -68,7 +68,7 @@ desugarExp = \case
-- EAbsS pat e -> EAbs (LIdent "$zz$") (ECase (EVar "$zz$") [Branch (desugarPattern pat) (desugarExp e)])
ELet b e -> ELet (desugarBind b) (desugarExp e)
ECase e br -> ECase (desugarExp e) (map desugarBranch br)
EAnn e t -> EAnn (desugarExp e) t
EAnn e t -> EAnn (desugarExp e) (desugarType t)
EVarS (VSymbol (Symbol symb)) -> EVar (LIdent $ fixName symb)
EVarS (VIdent (LIdent ident)) -> EVar $ LIdent $ fixName ident
EVar i -> EVar i