mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

mapM_ = sequence_ . map

Browse source
This commit is contained in:
Joey Hess 2017-02-27 14:48:07 -04:00
parent 942e0174b3
commit 31275754f5
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
CmdLine/GlobalSetter.hs
View file

@ -20,5 +20,5 @@ globalSetter :: (v -> Annex ()) -> Parser v -> GlobalOption
globalSetter setter parser = DeferredParse . setter <$> parser globalSetter setter parser = DeferredParse . setter <$> parser
combineGlobalOptions :: [GlobalOption] -> Parser GlobalSetter combineGlobalOptions :: [GlobalOption] -> Parser GlobalSetter
combineGlobalOptions l = DeferredParse . sequence_ . map getParsed combineGlobalOptions l = DeferredParse . mapM_ getParsed
<$> many (foldl1 (<|>) l) <$> many (foldl1 (<|>) l)