From d08042be1e0ae158f124bb6848f5843a804a6544 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Tue, 6 Sep 2022 22:22:32 +0100
Subject: Assignation

---
 src/Ast.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Ast.hs')

diff --git a/src/Ast.hs b/src/Ast.hs
index 075b9f8..4f4a2f9 100644
--- a/src/Ast.hs
+++ b/src/Ast.hs
@@ -22,7 +22,7 @@ type FuncParam = (Ident, Type, Bool, SourcePos)
 data Expr
   = Num Integer SourcePos
   | Bool' Bool SourcePos
-  | BinOp Op Expr Expr
+  | BinOp Op SourcePos Expr Expr
   | Variable Ident SourcePos
   | -- v type value private pos
     Var Ident Type Expr Bool SourcePos
@@ -34,7 +34,8 @@ data Expr
   deriving (Eq, Ord, Show)
 
 data Op
-  = Plus
+  = Assign
+  | Plus
   | Minus
   | Mul
   | Div
-- 
cgit v1.2.3