mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid --batch crashing if a remote fails to be accessed

Browse source
This commit is contained in:
Joey Hess 2016-02-12 16:48:03 -04:00
parent cc4d3e3d45
commit d3130930db
Failed to extract signature
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/CheckPresentKey.hs
View file

@ -68,8 +68,7 @@ exitResult (CheckFailure msg) = liftIO $ do
batchResult :: Result -> Annex () batchResult :: Result -> Annex ()
batchResult Present = liftIO $ putStrLn "1" batchResult Present = liftIO $ putStrLn "1"
batchResult NotPresent = liftIO $ putStrLn "0" batchResult _ = liftIO $ putStrLn "0"
batchResult failure = exitResult failure
toKey :: String -> Key toKey :: String -> Key
toKey = fromMaybe (error "Bad key") . file2key toKey = fromMaybe (error "Bad key") . file2key