fix reversion

793ddecd4b made installWrapper not do
newline conversion on windows.
This commit is contained in:
Joey Hess 2025-01-22 14:42:27 -04:00
parent 9b79f0f43d
commit c5fe457e01
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -17,7 +17,6 @@ import Utility.Shell
import Utility.Tmp
import Utility.Env
import Utility.SshConfig
import qualified Utility.FileIO as F
#ifdef darwin_HOST_OS
import Utility.OSX
@ -105,7 +104,7 @@ installWrapper file content = do
curr <- catchDefaultIO "" $ readFileStrict (fromRawFilePath file)
when (curr /= content) $ do
createDirectoryIfMissing True (fromRawFilePath (parentDir file))
viaTmp F.writeFile' (toOsPath file) (encodeBS content)
viaTmp (writeFile . fromRawFilePath . fromOsPath) (toOsPath file) content
modifyFileMode file $ addModes [ownerExecuteMode]
installFileManagerHooks :: FilePath -> IO ()