diff options
Diffstat (limited to 'Remote/Git.hs')
-rw-r--r-- | Remote/Git.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index 2cebcce4a..caa677464 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -391,11 +391,8 @@ lockKey r duc key callback -- and then run the callback in the original -- annex monad, not the remote's. onLocalFast r $ - Annex.Content.lockContentShared key $ \vc -> - ifM (Annex.Content.inAnnex key) - ( liftIO $ inorigrepo $ callback vc - , failedlock - ) + Annex.Content.lockContentShared key $ + liftIO . inorigrepo . callback , failedlock ) | Git.repoIsSsh (repo r) = do |