summaryrefslogtreecommitdiff
path: root/Annex
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-08-20 12:14:56 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-08-20 12:14:56 -0400
commitc29395175d002c3afd5723c7bd0c0875921c1419 (patch)
treefaae1c35c01d845266267a8cac82fea2c3fad92e /Annex
parent0bc6a779f724bd6b48b5adf1ee40dd94f25362a0 (diff)
whoops, I the debug prints
Diffstat (limited to 'Annex')
-rw-r--r--Annex/LockFile.hs7
1 files changed, 1 insertions, 6 deletions
diff --git a/Annex/LockFile.hs b/Annex/LockFile.hs
index bd581fd5f..c527d2ec0 100644
--- a/Annex/LockFile.hs
+++ b/Annex/LockFile.hs
@@ -71,14 +71,9 @@ changeLockPool a = do
withExclusiveLock :: (Git.Repo -> FilePath) -> Annex a -> Annex a
withExclusiveLock getlockfile a = do
lockfile <- fromRepo getlockfile
- liftIO $ hPutStrLn stderr (show ("locking", lockfile))
- liftIO $ hFlush stderr
createAnnexDirectory $ takeDirectory lockfile
mode <- annexFileMode
- r <- bracketIO (lock lockfile mode) unlock (const a)
- liftIO $ hPutStrLn stderr (show ("unlocked", lockfile))
- liftIO $ hFlush stderr
- return r
+ bracketIO (lock lockfile mode) unlock (const a)
where
#ifndef mingw32_HOST_OS
lock lockfile mode = do