From c29395175d002c3afd5723c7bd0c0875921c1419 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Aug 2014 12:14:56 -0400 Subject: whoops, I the debug prints --- Annex/LockFile.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'Annex/LockFile.hs') 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 -- cgit v1.2.3