diff options
author | Joey Hess <joey@kitenet.net> | 2014-08-20 12:14:56 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-08-20 12:14:56 -0400 |
commit | c29395175d002c3afd5723c7bd0c0875921c1419 (patch) | |
tree | faae1c35c01d845266267a8cac82fea2c3fad92e | |
parent | 0bc6a779f724bd6b48b5adf1ee40dd94f25362a0 (diff) |
whoops, I the debug prints
-rw-r--r-- | Annex/LockFile.hs | 7 |
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 |