Untested minimal viable parser

1 files changed, 3 insertions, 1 deletions

diff --git a/AST.hs b/AST.hs
index b9dd3df..a6726ca 100644
--- a/AST.hs
+++ b/AST.hs
@@ -38,6 +38,8 @@ data RHS t
 
 data Expr t
     = ELit t Literal
+    | EVar t Name
+    | ECon t Name
     | EList t [Expr t]
     | ETup t [Expr t]
     | EApp t (Expr t) [Expr t]
@@ -47,7 +49,7 @@ data Expr t
     | ELet t [FunDef t] (Expr t)
   deriving (Show)
 
-data Literal = LInt Int | LFloat Double | LChar Char | LString String
+data Literal = LInt Integer | LFloat Rational | LChar Char | LString String
   deriving (Show)
 
 data Operator = OAdd | OSub | OMul | ODiv | OMod | OEqu | OPow