Inline helper functions in Coalgebra.Parser

src/MA/Coalgebra/Parser.hs

@@ -56,6 +56,7 @@ class ParseMorphism f where
 
 newState :: MorphParser l h1 State
 newState = nextState <<%= succ
+{-# INLINE newState #-}
 
 defineSymbol :: Text -> MorphParser l h1 State
 defineSymbol sym = use (symbolTable . at sym) >>= \case
@@ -67,6 +68,7 @@ defineSymbol sym = use (symbolTable . at sym) >>= \case
     define :: State -> MorphParser l h1 State
     define node = (symbolTable . at sym .= Just (node, Defined))
       *> return node
+{-# INLINE defineSymbol #-}
 
 lookupSymbol :: Text -> MorphParser l h1 State
 lookupSymbol sym = use (symbolTable . at sym) >>= \case
@@ -76,6 +78,7 @@ lookupSymbol sym = use (symbolTable . at sym) >>= \case
   where
     markUndefined :: State -> MorphParser l h1 ()
     markUndefined node = symbolTable . at sym .= Just (node, Undefined)
+{-# INLINE lookupSymbol #-}
 
 checkUndefinedRefs :: MorphParser l h1 ()
 checkUndefinedRefs = use (symbolTable . to M.toList . to (filter isUndefined)) >>= \case