summaryrefslogtreecommitdiff
path: root/lib/Language/Elna/Frontend/AST.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Language/Elna/Frontend/AST.hs')
-rw-r--r--lib/Language/Elna/Frontend/AST.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Language/Elna/Frontend/AST.hs b/lib/Language/Elna/Frontend/AST.hs
index 4c1c20b..b9ed539 100644
--- a/lib/Language/Elna/Frontend/AST.hs
+++ b/lib/Language/Elna/Frontend/AST.hs
@@ -119,8 +119,8 @@ data Expression
| SubtractionExpression Expression Expression
| NegationExpression Expression
| ProductExpression Expression Expression
-{- | VariableExpression VariableAccess
- | DivisionExpression Expression Expression -}
+ | DivisionExpression Expression Expression
+ -- | VariableExpression VariableAccess
deriving Eq
instance Show Expression
@@ -130,8 +130,8 @@ instance Show Expression
show (SubtractionExpression lhs rhs) = concat [show lhs, " - ", show rhs]
show (NegationExpression negation) = '-' : show negation
show (ProductExpression lhs rhs) = concat [show lhs, " * ", show rhs]
- {- show (VariableExpression variable) = show variable
- show (DivisionExpression lhs rhs) = concat [show lhs, " / ", show rhs] -}
+ show (DivisionExpression lhs rhs) = concat [show lhs, " / ", show rhs]
+ -- show (VariableExpression variable) = show variable
{-
data VariableAccess
= VariableAccess Identifier