From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 18 Jul 2022 20:44:32 +0000 (-0400)
Subject: fix build
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~72^2~22^2~4
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=d0860b7f0ead4a5bb43550bc032778253827eacd;p=git-annex.git

fix build

After 28b0aaea54e9515c16e440f9f22688dc2e7dc642
---

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