From d3de3c28eb2582d1f12c20e4ff16825d18f3f0bc Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 22 Jan 2025 16:28:29 -0400 Subject: [PATCH] fix reversion af3b9cbd3647ecfb3f3f6c4008dc9e64f7d42591 lost takeFileName, breaking the test suite --- Annex/ReplaceFile.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Annex/ReplaceFile.hs b/Annex/ReplaceFile.hs index 188b300b88..5cb46b17dd 100644 --- a/Annex/ReplaceFile.hs +++ b/Annex/ReplaceFile.hs @@ -57,7 +57,7 @@ replaceFile createdirectory file action = replaceFile' createdirectory file (con replaceFile' :: (RawFilePath -> Annex ()) -> RawFilePath -> (a -> Bool) -> (RawFilePath -> Annex a) -> Annex a replaceFile' createdirectory file checkres action = withOtherTmp $ \othertmpdir -> do - let basetmp = relatedTemplate' file + let basetmp = relatedTemplate' (P.takeFileName file) withTmpDirIn (fromRawFilePath othertmpdir) (toOsPath basetmp) $ \tmpdir -> do let tmpfile = toRawFilePath tmpdir P. basetmp r <- action tmpfile