From e8e86cea2bffe23961f0a1bea8ee770343894858 Mon Sep 17 00:00:00 2001
From: Charles <sircharlesaze@gmail.com>
Date: Thu, 9 Apr 2020 20:09:43 +0200
Subject: builtin cleaning

---
 src/parser/Expr.hs | 27 ++++++++++++---------------
 1 file changed, 12 insertions(+), 15 deletions(-)

(limited to 'src/parser')

diff --git a/src/parser/Expr.hs b/src/parser/Expr.hs
index 5ba4be7..2d6937a 100644
--- a/src/parser/Expr.hs
+++ b/src/parser/Expr.hs
@@ -6,13 +6,13 @@ import Parser.Core
 import Expr
 
 
-imaginaryP :: Parser Atom
+imaginaryP :: Parser Expr
 imaginaryP = Imaginary <$> (floatP <* char 'i')
 
-rationalP :: Parser Atom
+rationalP :: Parser Expr
 rationalP = Rational <$> floatP
 
-matrixP :: Parser Atom
+matrixP :: Parser Expr
 matrixP = Matrix <$> (char '[' *> sepBy (char ';') matrixRowP <* char ']')
     where matrixRowP = char '[' *> sepBy (char ',') exprP <* char ']'
 
@@ -27,16 +27,13 @@ termP =  factorP `chainl1` factorOpP
 factorP :: Parser Expr
 factorP =  endpointP `chainl1` expOpP
     where expOpP = infixOp "^" Exp
-          endpointP = parenthesisExprP <|> (EAtom <$> atomP) <|> functionP <|> variableP
 
-variableP :: Parser Expr
-variableP = Variable <$> alphaStringP
-
-functionP :: Parser Expr
-functionP = Function <$> alphaStringP <*> parenthesisExprP
-
-parenthesisExprP :: Parser Expr
-parenthesisExprP = parenthesize exprP
-
-atomP :: Parser Atom
-atomP = imaginaryP <|> rationalP <|> matrixP
+          endpointP = parensExprP
+                      <|> imaginaryP
+                      <|> rationalP
+                      <|> matrixP
+                      <|> functionP
+                      <|> variableP
+              where variableP = Variable <$> alphaStringP
+                    functionP = Function <$> alphaStringP <*> parensExprP
+                    parensExprP = parenthesize exprP
-- 
cgit