From defd0cf1a7620eaecda984a58533661a98595bd3 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sat, 23 Mar 2024 23:11:43 +0100
Subject: work

---
 src/HSVIS/AST.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/HSVIS/AST.hs')

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)
-- 
cgit v1.2.3-70-g09d2