Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Removed the ear operator.

Browse source
This commit is contained in:
Samuel Hammersberg 2023-03-22 11:48:40 +01:00
parent 61c844a255
commit cd85297b85
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Codegen/Codegen.hs
View file

@ -12,7 +12,6 @@ import Control.Applicative ((<|>))
import Control.Monad.State (StateT, execStateT, foldM_, import Control.Monad.State (StateT, execStateT, foldM_,
gets, modify) gets, modify)
import qualified Data.Bifunctor as BI import qualified Data.Bifunctor as BI
import Data.Functor ((<&>))
import Data.List.Extra (trim) import Data.List.Extra (trim)
import Data.Map (Map) import Data.Map (Map)
import qualified Data.Map as 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 -- | Increases the variable count and returns it from the CodeGenerator state
getNewVar :: CompilerState GA.Ident 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 -- | Increses the label count and returns a label from the CodeGenerator state
getNewLabel :: CompilerState Integer getNewLabel :: CompilerState Integer