diff --git a/Command/CheckPresentKey.hs b/Command/CheckPresentKey.hs
index 6fe1f552c8..29df810a63 100644
--- a/Command/CheckPresentKey.hs
+++ b/Command/CheckPresentKey.hs
@@ -68,8 +68,7 @@ exitResult (CheckFailure msg) = liftIO $ do
 
 batchResult :: Result -> Annex ()
 batchResult Present = liftIO $ putStrLn "1"
-batchResult NotPresent = liftIO $ putStrLn "0"
-batchResult failure = exitResult failure
+batchResult _ = liftIO $ putStrLn "0"
 
 toKey :: String -> Key
 toKey = fromMaybe (error "Bad key") . file2key