Fix a huge performance regression under GHC 7.8.1
This improves runtime of benchmarks/Alternative.hs from 12 seconds
to 0.04 (the same as with GHC 7.6), and thus fixes gh-56.
--HG--
extra : amend_source : c9e91a509a0f611019bbbc60ae5ea25430522e97
commitb9a21b8e265949ec2d9541409b0a252aad3f638a
authorBryan O'Sullivan <bos@serpentine.com>
dateTue 4 Mar 2014, 21:50 (13 years ago)
parentccbb526
Data/Attoparsec/Internal/Types.hs−1
@@ -161,7 +161,6 @@ plus a b = Parser $ \i0 a0 m0 kf ks ->
161161 \ i2 a2 m2 -> runParser b i2 a2 m2 kf ks
162162 ks' i1 a1 m1 = ks i1 (a0 <> a1) m1
163163 in noAdds i0 a0 m0 $ \i2 a2 m2 -> runParser a i2 a2 m2 kf' ks'
164−{-# INLINE plus #-}
165164
166165instance (Monoid t) => MonadPlus (Parser t) where
167166 mzero = failDesc "mzero"