From 236c467da19f34edb08f124e37fd26eb62c43fcf Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 5 Dec 2017 15:00:50 -0400 Subject: more lambda-case conversion --- Command.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Command.hs') diff --git a/Command.hs b/Command.hs index 58f57762e..d1d539f45 100644 --- a/Command.hs +++ b/Command.hs @@ -68,8 +68,7 @@ noMessages c = c { cmdnomessages = True } {- Undoes noMessages -} allowMessages :: Annex () allowMessages = do - curr <- Annex.getState Annex.output - case outputType curr of + outputType <$> Annex.getState Annex.output >>= \case QuietOutput -> Annex.setOutput NormalOutput _ -> noop Annex.changeState $ \s -> s -- cgit v1.2.3