From 9cce9dd3735b98c92400e10e08c2723e5bf7f118 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 27 Feb 2017 14:48:07 -0400 Subject: mapM_ = sequence_ . map --- CmdLine/GlobalSetter.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'CmdLine') 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) -- cgit v1.2.3