Change the generator to write a file with Unix line endings on all platforms
authorNeil Mitchell <ndmitchell@gmail.com>
Wed, 29 Oct 2014 08:02:59 +0000 (08:02 +0000)
committerNeil Mitchell <ndmitchell@gmail.com>
Wed, 29 Oct 2014 08:02:59 +0000 (08:02 +0000)
Generate.hs

index 53ec8c6..7f956e7 100755 (executable)
@@ -16,7 +16,7 @@ isExpr _ = False
 
 main = do src <- readFile "System/FilePath/Internal.hs"
           let tests = concatMap getTest $ zip [1..] (lines src)
-          writeFile "tests/FilePath_Test.hs" (prefix ++ genTests tests)
+          writeFileBinary "tests/FilePath_Test.hs" (prefix ++ genTests tests)
 
 prefix = unlines
     ["import AutoTest"
@@ -107,3 +107,6 @@ genTest (Test free x) = "quickSafe (\\" ++ concatMap ((' ':) . f) free ++ " -> (
     where
         f [a] | a >= 'x' = "(QFilePath " ++ [a] ++ ")"
         f x = x
+
+writeFileBinary :: FilePath -> String -> IO ()
+writeFileBinary file x = withBinaryFile file WriteMode $ \h -> hPutStr h x