ilyakooo0/optparse-applicative
1
0
Fork 0
mirror of https://github.com/ilyakooo0/optparse-applicative.git synced 2024-09-19 06:28:23 +03:00
Code Issues Projects Releases Wiki Activity

Fix implementation of some for BConst

Browse Source 
The default implementation diverges for `Alt` parsers
This commit is contained in:
Paolo Capriotti 2014-10-15 17:29:36 +01:00
parent 8eaf1d1078
commit 37fe3df3bf
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Bimonoid.hs
View File

@ -47,3 +47,6 @@ instance Monoid m => Applicative (BConst m) where
instance StarBimonoid m => Alternative (BConst m) where
empty = BConst zero
x <|> y = BConst $ getBConst x `plus` getBConst y
some = BConst . star . getBConst
many x = some x <|> pure []