From cd85297b859a8600f1f91175811d19d7fd590268 Mon Sep 17 00:00:00 2001
From: Samuel Hammersberg <samuel.hammersberg@gmail.com>
Date: Wed, 22 Mar 2023 11:48:40 +0100
Subject: [PATCH] Removed the ear operator.

---
 src/Codegen/Codegen.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Codegen/Codegen.hs b/src/Codegen/Codegen.hs
index 4183153..bf2f9ba 100644
--- a/src/Codegen/Codegen.hs
+++ b/src/Codegen/Codegen.hs
@@ -12,7 +12,6 @@ import           Control.Applicative           ((<|>))
 import           Control.Monad.State           (StateT, execStateT, foldM_,
                                                 gets, modify)
 import qualified Data.Bifunctor                as BI
-import           Data.Functor                  ((<&>))
 import           Data.List.Extra               (trim)
 import           Data.Map                      (Map)
 import qualified Data.Map                      as Map
@@ -59,7 +58,7 @@ getVarCount = gets variableCount
 
 -- | Increases the variable count and returns it from the CodeGenerator state
 getNewVar :: CompilerState GA.Ident
-getNewVar = (increaseVarCount >> getVarCount) <&> (GA.Ident . show)
+getNewVar = (GA.Ident . show) <$> (increaseVarCount >> getVarCount)
 
 -- | Increses the label count and returns a label from the CodeGenerator state
 getNewLabel :: CompilerState Integer