From 76bfdf6a0348211ecfe934c93f6a1f08bd537660 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 30 Jan 2025 17:45:34 -0400 Subject: [PATCH] add windows debug --- Annex/ReplaceFile.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Annex/ReplaceFile.hs b/Annex/ReplaceFile.hs index 3af555d39d..7c42532acb 100644 --- a/Annex/ReplaceFile.hs +++ b/Annex/ReplaceFile.hs @@ -63,6 +63,7 @@ replaceFile' createdirectory file checkres action = withOtherTmp $ \othertmpdir let basetmp = relatedTemplate' (P.takeFileName file) #else let basetmp = toRawFilePath "t" + liftIO $ hPutStrLn stderr $ show ("replaceFile debug", file, P.takeFileName file, relatedTemplate' (P.takeFileName file)) #endif withTmpDirIn (fromRawFilePath othertmpdir) (toOsPath basetmp) $ \tmpdir -> do let tmpfile = toRawFilePath tmpdir P. basetmp