git.iko.soy/typeable/attoparsec
on master help sign in
Update Types.hs
9f1c6d1Vaibhav Sagar
Data/Attoparsec/Internal/Types.hs+3−2
compare with master
unifiedsplit
@@ -207,8 +207,9 @@ instance Alternative (Parser i) where
207 {-# INLINE (<|>) #-}
207 {-# INLINE (<|>) #-}
208
208
209 many v = many_v
209 many v = many_v
210+ where
210− where many_v = some_v <|> pure []
211+ many_v = some_v <|> pure []
211− some_v = (:) App.<$> v <*> many_v
212+ some_v = (:) <$> v <*> many_v
212 {-# INLINE many #-}
213 {-# INLINE many #-}
213
214
214 some v = some_v
215 some v = some_v