diff options
-rw-r--r-- | Annex/Tmp.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Annex/Tmp.hs b/Annex/Tmp.hs index d3a191f2dd..008b5fd826 100644 --- a/Annex/Tmp.hs +++ b/Annex/Tmp.hs @@ -27,8 +27,9 @@ withOtherTmp a = do addCleanup OtherTmpCleanup cleanupOtherTmp tmpdir <- fromRepo gitAnnexTmpOtherDir tmplck <- fromRepo gitAnnexTmpOtherLock - void $ createAnnexDirectory tmpdir - withSharedLock (const tmplck) (a tmpdir) + withSharedLock (const tmplck) $ do + void $ createAnnexDirectory tmpdir + a tmpdir -- | Cleans up any tmp files that were left by a previous -- git-annex process that got interrupted or failed to clean up after |