From 924b8297e93ad755d1f3ca8564d04ffdf35b6378 Mon Sep 17 00:00:00 2001
From: guillaume abel <guillaume.abel@epitech.eu>
Date: Wed, 3 Jan 2024 18:10:00 +0100
Subject: [PATCH] Fix TypeValue

---
 lvtc/src/AST.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lvtc/src/AST.hs b/lvtc/src/AST.hs
index 0de7c5d..153152a 100644
--- a/lvtc/src/AST.hs
+++ b/lvtc/src/AST.hs
@@ -27,9 +27,7 @@ getType _ = Nothing
 
 type Type = String
 
-type TypeValue = Int32 | Bool | String
-
-data Value = Var String | StaticValue TypeValue | Function FuncCall
+data Value = Var String | Function FuncCall | Boolean Bool | Integer Int32 | StringView String
 
 
 -- Function
@@ -55,4 +53,5 @@ type VarDeclaration = (Var, Value)
 
 type VarAssignation = (Symbol, Value)
 
-data Instruction = Function FuncCall | Return Value | Declaration VarDeclaration | Assignation VarAssignation | Cond Condition
+data Instruction =
+  Function FuncCall | Return Value | Declaration VarDeclaration | Assignation VarAssignation | Cond Condition