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/Dead.hs | |
parent | f013f71cb5d3f7eee3afb3eb8f01a33206d717c4 (diff) |
more lambda-case conversion
Diffstat (limited to 'Command/Dead.hs')
-rw-r--r-- | Command/Dead.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/Dead.hs b/Command/Dead.hs index 385dd6fad..7e329b9dd 100644 --- a/Command/Dead.hs +++ b/Command/Dead.hs @@ -34,8 +34,7 @@ seek (DeadKeys ks) = seekActions $ pure $ map startKey ks startKey :: Key -> CommandStart startKey key = do showStart' "dead" (Just $ key2file key) - ls <- keyLocations key - case ls of + keyLocations key >>= \case [] -> next $ performKey key _ -> giveup "This key is still known to be present in some locations; not marking as dead." |