From b036b1cac1377cdbb9cc57ae6124cd6d6e5775a9 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 16 Apr 2023 12:20:16 +0200
Subject: More parser work

---
 AST.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'AST.hs')

diff --git a/AST.hs b/AST.hs
index 0b98618..b9dd3df 100644
--- a/AST.hs
+++ b/AST.hs
@@ -40,7 +40,7 @@ data Expr t
     = ELit t Literal
     | EList t [Expr t]
     | ETup t [Expr t]
-    | EApp t (Expr t) (Expr t)
+    | EApp t (Expr t) [Expr t]
     | EOp t (Expr t) Operator (Expr t)
     | EIf t (Expr t) (Expr t) (Expr t)
     | ECase t (Expr t) [(Pattern t, RHS t)]
@@ -50,5 +50,5 @@ data Expr t
 data Literal = LInt Int | LFloat Double | LChar Char | LString String
   deriving (Show)
 
-data Operator = OAdd | OSub | OMul | ODiv | OMod
+data Operator = OAdd | OSub | OMul | ODiv | OMod | OEqu | OPow
   deriving (Show)
-- 
cgit v1.2.3-70-g09d2