mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix reversion

Browse source 
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
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/Install.hs
View file

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