Add array assignment to the IR

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/Language/Elna/Frontend/AST.hs b/lib/Language/Elna/Frontend/AST.hs
index df00d4b..c9e05ef 100644
--- a/lib/Language/Elna/Frontend/AST.hs
+++ b/lib/Language/Elna/Frontend/AST.hs
@@ -176,16 +176,16 @@ instance Show Expression
     show (DivisionExpression lhs rhs) = concat [show lhs, " / ", show rhs]
     show (VariableExpression variable) = show variable
 
-newtype VariableAccess
+data VariableAccess
     = VariableAccess Identifier
-    -- | ArrayAccess VariableAccess Expression
+    | ArrayAccess VariableAccess Expression
     deriving Eq
 
 instance Show VariableAccess
   where
     show (VariableAccess variableName) = show variableName
-    {- show (ArrayAccess arrayAccess elementIndex) =
-        concat [show arrayAccess, "[", show elementIndex, "]"] -}
+    show (ArrayAccess arrayAccess elementIndex) =
+        concat [show arrayAccess, "[", show elementIndex, "]"]
 
 data Condition
     = EqualCondition Expression Expression