From 31275754f5f6cf70d36936bc631da55bef09b2bd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 27 Feb 2017 14:48:07 -0400 Subject: [PATCH] mapM_ = sequence_ . map --- CmdLine/GlobalSetter.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/CmdLine/GlobalSetter.hs b/CmdLine/GlobalSetter.hs index 831a8b4400..b0447c6c83 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) -- 2.30.2