From 0d4abbcb92ff40e90cbc44f3d1a42243bdbae2ba Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 30 Jan 2025 17:06:22 -0400
Subject: [PATCH] try truncateFilePath on windows again

after fix in commit 773115fd5f9334855b138323b74ca572695208a0
maybe it will work now and not break test suite?
---
 Annex/ReplaceFile.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/Annex/ReplaceFile.hs b/Annex/ReplaceFile.hs
index 3af555d39d..5cb46b17dd 100644
--- a/Annex/ReplaceFile.hs
+++ b/Annex/ReplaceFile.hs
@@ -5,8 +5,6 @@
  - Licensed under the GNU AGPL version 3 or higher.
  -}
 
-{-# LANGUAGE CPP #-}
-
 module Annex.ReplaceFile (
 	replaceGitAnnexDirFile,
 	replaceGitDirFile,
@@ -59,11 +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
-#ifndef mingw32_HOST_OS
 	let basetmp = relatedTemplate' (P.takeFileName file)
-#else
-	let basetmp = toRawFilePath "t"
-#endif
 	withTmpDirIn (fromRawFilePath othertmpdir) (toOsPath basetmp) $ \tmpdir -> do
 		let tmpfile = toRawFilePath tmpdir P.</> basetmp
 		r <- action tmpfile