WIP Added support for more types of cases.

This commit is contained in:
Samuel Hammersberg 2023-03-23 15:29:25 +01:00
parent cd85297b85
commit 129a70e051
3 changed files with 79 additions and 26 deletions

View file

@ -19,7 +19,7 @@ data Exp
data Injection = Injection Case ExpT
deriving (Show, Ord, Eq)
data Case = CLit Lit | CCons Id | CatchAll
data Case = CLit Lit | CCons Id [Case] | CIdent Ident | CatchAll
deriving (Show, Ord, Eq)
data Constructor = Constructor Ident [Type]