fix build

After 28b0aaea54e9515c16e440f9f22688dc2e7dc642

diff --git a/Annex/Branch.hs b/Annex/Branch.hs
index 41ae4207f73c9071737485848db42f78e51b8523..00b71a830ee3ad0c6acbdc62c4118a25d7fdb117 100644 (file)
--- 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