diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs index 7bf0ca365b..501faac1ed 100644 --- a/Annex/Transfer.hs +++ b/Annex/Transfer.hs @@ -171,7 +171,7 @@ runTransfer' ignorelock t eventualbackend afile stalldetection retrydecider tran createAnnexDirectory $ P.takeDirectory lck catchMaybeIO (liftIO $ lockExclusive lck) >>= \case Nothing -> return (Nothing, False) - Just Nothing -> return (Nothing, True) + Just Nothing -> return (Nothing, False) Just (Just lockhandle) -> do createtfile return (Just lockhandle, False)