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

whoops, I the debug prints

Browse source
This commit is contained in:
Joey Hess 2014-08-20 12:14:56 -04:00
parent f92fd1b1e4
commit bf3133ebb0
1 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Annex/LockFile.hs
View file

@ -71,14 +71,9 @@ changeLockPool a = do
withExclusiveLock :: (Git.Repo -> FilePath) -> Annex a -> Annex a withExclusiveLock :: (Git.Repo -> FilePath) -> Annex a -> Annex a
withExclusiveLock getlockfile a = do withExclusiveLock getlockfile a = do
lockfile <- fromRepo getlockfile lockfile <- fromRepo getlockfile
liftIO $ hPutStrLn stderr (show ("locking", lockfile))
liftIO $ hFlush stderr
createAnnexDirectory $ takeDirectory lockfile createAnnexDirectory $ takeDirectory lockfile
mode <- annexFileMode mode <- annexFileMode
r <- bracketIO (lock lockfile mode) unlock (const a) bracketIO (lock lockfile mode) unlock (const a)
liftIO $ hPutStrLn stderr (show ("unlocked", lockfile))
liftIO $ hFlush stderr
return r
where where
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
lock lockfile mode = do lock lockfile mode = do