diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-03-23 23:11:43 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-03-23 23:11:43 +0100 |
| commit | defd0cf1a7620eaecda984a58533661a98595bd3 (patch) | |
| tree | 9123de654c92a7d9c406aa75616f65007487bc03 /src/HSVIS/AST.hs | |
| parent | 071a55031cbfadf8e71d21b13c19ff80c2ab96e3 (diff) | |
work
Diffstat (limited to 'src/HSVIS/AST.hs')
| -rw-r--r-- | src/HSVIS/AST.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/HSVIS/AST.hs b/src/HSVIS/AST.hs index e25657b..058f5ac 100644 --- a/src/HSVIS/AST.hs +++ b/src/HSVIS/AST.hs @@ -126,6 +126,7 @@ data Expr s | EOp (X Expr s) (Expr s) Operator (Expr s) | EIf (X Expr s) (Expr s) (Expr s) (Expr s) | ECase (X Expr s) (Expr s) [(Pattern s, RHS s)] + -- TODO: pattern bindings? | ELet (X Expr s) [FunDef s] (Expr s) | EError (X Expr s) deriving instance (Show (X Expr s), Show (Pattern s), Show (RHS s), Show (FunDef s)) => Show (Expr s) |