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

pattern matching works? have to test more

Browse source
This commit is contained in:
sebastianselander 2023-03-03 11:46:54 +01:00
parent 7656b46e3f
commit 03d7080396
5 changed files with 76 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Renamer/Renamer.hs
View file

@ -73,7 +73,9 @@ renameExp old_names = \case
(new_names, e') <- renameExp old_names e
pure (new_names, EAnn e' t)
ECase _ _ -> error "ECase NOT IMPLEMENTED YET"
ECase e injs -> do
(new_names, e') <- renameExp old_names e
pure (new_names, ECase e' injs)
-- | Create a new name and add it to name environment.
newName :: Names -> Ident -> Rn (Names, Ident)