diff options
| -rw-r--r-- | Command/CheckPresentKey.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/CheckPresentKey.hs b/Command/CheckPresentKey.hs index 6fe1f552c..29df810a6 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 |