More parser work

1 files changed, 2 insertions, 2 deletions

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)