From 40bb2f4b8c8f9a081051579b8d641664236127c8 Mon Sep 17 00:00:00 2001
From: 0rphee <0rph3e@proton.me>
Date: Wed, 1 Jan 2025 17:22:31 -0600
Subject: [PATCH] Extra 'primary' commit

---
 src/Parser.hs | 26 --------------------------
 1 file changed, 26 deletions(-)

diff --git a/src/Parser.hs b/src/Parser.hs
index c988fcd..05a7fe6 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -66,32 +66,6 @@ unary = do
 
 primary :: ParserM r Expr
 primary = do
-  -- f <- match [FALSE]
-  -- if f
-  --   then pure $ ELiteral $ LitBool False
-  --   else do
-  --     t <- match [TRUE]
-  --     if t
-  --       then pure $ ELiteral $ LitBool True
-  --       else do
-  --         n <- match [NIL]
-  --         if n
-  --           then pure $ ELiteral LitNil
-  --           else do
-  --             ns <- match [NUMBER, STRING]
-  --             if ns
-  --               then previous <&> (ELiteral . (.literal))
-  --               else do
-  --                 lp <- match [LEFT_PAREN]
-  --                 if lp
-  --                   then do
-  --                     expr <- expression
-  --                     consume RIGHT_PAREN "Expect ')' after expression."
-  --                     pure $ EGrouping expr
-  --                   else do
-  --                     p <- peek
-  --                     getPError p "Expect expression." >>= throwError
-
   t <- safePeek
   case t of
     Just (Token FALSE _ _ _) -> advance >> pure (ELiteral $ LitBool False)