diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-02-27 14:48:07 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-02-27 14:48:07 -0400 |
| commit | 9cce9dd3735b98c92400e10e08c2723e5bf7f118 (patch) | |
| tree | 1dbb4bfe3df0cded5936a49443f02fde018bff45 | |
| parent | cde3a924aec6bcd47ede650572bffa8c414243cf (diff) | |
mapM_ = sequence_ . map
| -rw-r--r-- | CmdLine/GlobalSetter.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/CmdLine/GlobalSetter.hs b/CmdLine/GlobalSetter.hs index 831a8b440..b0447c6c8 100644 --- a/CmdLine/GlobalSetter.hs +++ b/CmdLine/GlobalSetter.hs @@ -20,5 +20,5 @@ globalSetter :: (v -> Annex ()) -> Parser v -> GlobalOption globalSetter setter parser = DeferredParse . setter <$> parser combineGlobalOptions :: [GlobalOption] -> Parser GlobalSetter -combineGlobalOptions l = DeferredParse . sequence_ . map getParsed +combineGlobalOptions l = DeferredParse . mapM_ getParsed <$> many (foldl1 (<|>) l) |