on master help sign in
Use INLINE on getPosition
4d47dafEvan Czaplicki
src/Parse/Primitives.hs+1
@@ -537,6 +537,7 @@ infixOpHelp array offset length row col =
537-- STATE
537-- STATE
538
538
539
539
540+{-# INLINE getPosition #-}
540getPosition :: Parser R.Position
541getPosition :: Parser R.Position
541getPosition =
542getPosition =
542 Parser $ \state@(State _ _ _ _ row col _) _ _ eok _ ->
543 Parser $ \state@(State _ _ _ _ row col _) _ _ eok _ ->