aboutsummaryrefslogtreecommitdiff
path: root/Command/Dead.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Dead.hs')
-rw-r--r--Command/Dead.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Dead.hs b/Command/Dead.hs
index ecbe41293..44cf7b7f6 100644
--- a/Command/Dead.hs
+++ b/Command/Dead.hs
@@ -37,7 +37,7 @@ startKey key = do
ls <- keyLocations key
case ls of
[] -> next $ performKey key
- _ -> error "This key is still known to be present in some locations; not marking as dead."
+ _ -> giveup "This key is still known to be present in some locations; not marking as dead."
performKey :: Key -> CommandPerform
performKey key = do