Merge pull request #138 from vaibhavsagar/patch-1
Update Types.hs
commit213dc8fbc31697aaf3d4504a83243bd050c75d7b
authorBen Gamari <ben@smart-cactus.org>
dateMon 5 Feb 2018, 16:20 (9 years ago)
parentc8030ed9f1c6d1
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