Use INLINE on getPosition
commit4d47daf097d793230147a1bd000966feb7cdd3a7
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateWed 19 Jul 2017, 18:22 (9 years ago)
parentcea3cbb
src/Parse/Primitives.hs+1
@@ -537,6 +537,7 @@ infixOpHelp array offset length row col =
537537-- STATE
538538
539539
540+{-# INLINE getPosition #-}
540541getPosition :: Parser R.Position
541542getPosition =
542543 Parser $ \state@(State _ _ _ _ row col _) _ _ eok _ ->