@@ -180,7 +180,7 @@ apP d e = do
180{-# INLINE apP #-}
180{-# INLINE apP #-}
182instance Applicative (Parser i) where
182instance Applicative (Parser i) where
183− pure v = Parser $ \t pos more _lose succ -> succ t pos more v
183+ pure v = Parser $ \t !pos more _lose succ -> succ t pos more v
184 {-# INLINE pure #-}
184 {-# INLINE pure #-}
185 (<*>) = apP
185 (<*>) = apP
186 {-# INLINE (<*>) #-}
186 {-# INLINE (<*>) #-}