diff options
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." |