diff options
Diffstat (limited to 'Annex/Journal.hs')
| -rw-r--r-- | Annex/Journal.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Journal.hs b/Annex/Journal.hs index 3f31cb941..395e81d29 100644 --- a/Annex/Journal.hs +++ b/Annex/Journal.hs @@ -35,11 +35,11 @@ import Utility.WinLock -} setJournalFile :: JournalLocked -> FilePath -> String -> Annex () setJournalFile _jl file content = do + tmp <- fromRepo gitAnnexTmpMiscDir createAnnexDirectory =<< fromRepo gitAnnexJournalDir - createAnnexDirectory =<< fromRepo gitAnnexTmpDir + createAnnexDirectory tmp -- journal file is written atomically jfile <- fromRepo $ journalFile file - tmp <- fromRepo gitAnnexTmpDir let tmpfile = tmp </> takeFileName jfile liftIO $ do writeBinaryFile tmpfile content |