fix reversion

793ddecd4b72a5e4746b3b426d3bca400737118b made installWrapper not do
newline conversion on windows.

diff --git a/Assistant/Install.hs b/Assistant/Install.hs
index da33b168424649bead6362fca02063280e559443..94a40369cc67800fc1e7b6f4153474798994ac58 100644 (file)
--- a/Assistant/Install.hs
+++ b/Assistant/Install.hs
@@ -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 ()