Update Types.hs
Reformat the definition of `many` to highlight the similarity to `some`.
commit9f1c6d1deb7ab8c78594c083d9cc97a7d4b4ce66
authorVaibhav Sagar <vaibhavsagar@gmail.com>
dateMon 5 Feb 2018, 13:03 (9 years ago)
parentc8030ed
Data/Attoparsec/Internal/Types.hs+3−2
@@ -207,8 +207,9 @@ instance Alternative (Parser i) where
207207 {-# INLINE (<|>) #-}
208208
209209 many v = many_v
210− where many_v = some_v <|> pure []
211− some_v = (:) App.<$> v <*> many_v
210+ where
211+ many_v = some_v <|> pure []
212+ some_v = (:) <$> v <*> many_v
212213 {-# INLINE many #-}
213214
214215 some v = some_v