diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-12-05 15:00:50 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-12-05 15:00:50 -0400 |
commit | 236c467da19f34edb08f124e37fd26eb62c43fcf (patch) | |
tree | f4e488f77fb954812e4d48f399fc2ecab072afea /Command.hs | |
parent | f013f71cb5d3f7eee3afb3eb8f01a33206d717c4 (diff) |
more lambda-case conversion
Diffstat (limited to 'Command.hs')
-rw-r--r-- | Command.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |