summaryrefslogtreecommitdiff
path: root/Annex/Content.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-10-09 15:01:16 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-10-09 15:01:33 -0400
commit25fe225df2f6edd79ad0bbbbcbfcc72e736b6a17 (patch)
treecf35748a5cfad45e490ea35cede6f6375359be84 /Annex/Content.hs
parentd6831bd8f2bd4e4c518d0779895c990268c17777 (diff)
rename constructor
Diffstat (limited to 'Annex/Content.hs')
-rw-r--r--Annex/Content.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs
index da29aa4ed..40c78fd34 100644
--- a/Annex/Content.hs
+++ b/Annex/Content.hs
@@ -183,7 +183,7 @@ contentLockFile key = Just <$> calcRepo (gitAnnexContentLock key)
lockContentShared :: Key -> (VerifiedCopy -> Annex a) -> Annex a
lockContentShared key a = lockContentUsing lock key $ do
u <- getUUID
- withVerifiedCopy VerifiedCopyLock u a
+ withVerifiedCopy LockedCopy u a
where
#ifndef mingw32_HOST_OS
lock contentfile Nothing = liftIO $ tryLockShared Nothing contentfile