From d3130930db2ccc0dfa5d09781f23e7f0e1e2da42 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 12 Feb 2016 16:48:03 -0400 Subject: [PATCH] avoid --batch crashing if a remote fails to be accessed --- Command/CheckPresentKey.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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