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

less indent

Browse source
This commit is contained in:
Joey Hess 2024-07-25 10:12:59 -04:00
parent b13c2407af
commit ba0ecbf47e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Remote/Git.hs
View file

@ -481,11 +481,11 @@ dropKey' :: Git.Repo -> Remote -> State -> Maybe SafeDropProof -> Key -> Annex (
dropKey' repo r st@(State connpool duc _ _ _) proof key dropKey' repo r st@(State connpool duc _ _ _) proof key
| isP2PHttp r = | isP2PHttp r =
clientRemoveWithProof proof key unabletoremove r >>= \case clientRemoveWithProof proof key unabletoremove r >>= \case
RemoveResultPlus True fanoutuuids -> RemoveResultPlus True fanoutuuids ->
storefanout fanoutuuids storefanout fanoutuuids
RemoveResultPlus False fanoutuuids -> do RemoveResultPlus False fanoutuuids -> do
storefanout fanoutuuids storefanout fanoutuuids
unabletoremove unabletoremove
| not $ Git.repoIsUrl repo = ifM duc | not $ Git.repoIsUrl repo = ifM duc
( guardUsable repo (giveup "cannot access remote") removelocal ( guardUsable repo (giveup "cannot access remote") removelocal
, giveup "remote does not have expected annex.uuid value" , giveup "remote does not have expected annex.uuid value"