From d0860b7f0ead4a5bb43550bc032778253827eacd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 18 Jul 2022 16:44:32 -0400 Subject: [PATCH] fix build After 28b0aaea54e9515c16e440f9f22688dc2e7dc642 --- Annex/Branch.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Annex/Branch.hs b/Annex/Branch.hs index 41ae4207f7..00b71a830e 100644 --- a/Annex/Branch.hs +++ b/Annex/Branch.hs @@ -425,7 +425,7 @@ changeOrAppend ru file f = lockJournal $ \jl -> checkCanAppendJournalFile jl ru file >>= \case Just appendable -> ifM (annexAlwaysCompact <$> Annex.getGitConfig) ( do - oldc <- getToChange ru file + oldc <- getToChange jl ru file case f oldc of Change newc -> set jl ru file newc Append toappend -> append jl file appendable toappend @@ -438,7 +438,7 @@ changeOrAppend ru file f = lockJournal $ \jl -> Append toappend -> append jl file appendable toappend ) Nothing -> do - oldc <- getToChange ru file + oldc <- getToChange jl ru file case f oldc of Change newc -> set jl ru file newc -- Journal file does not exist yet, so -- 2.30.2