added PEnum

This commit is contained in:
sebastianselander 2023-03-24 17:39:10 +01:00
parent d6d0fb7146
commit 41fc863658
5 changed files with 43 additions and 20 deletions

View file

@ -64,7 +64,7 @@ type ExpT = (Exp, Type)
data Branch = Branch (Pattern, Type) ExpT
deriving (C.Eq, C.Ord, C.Read, C.Show)
data Pattern = PVar Id | PLit (Lit, Type) | PInj Ident [Pattern] | PCatch
data Pattern = PVar Id | PLit (Lit, Type) | PInj Ident [Pattern] | PCatch | PEnum Ident
deriving (C.Eq, C.Ord, C.Show, C.Read)
data Def = DBind Bind | DData Data