git.iko.soy/typeable/pandoc
on master help sign in
UTF8: use universalNewlineMode in reading.
8339774John MacFarlane
src/Text/Pandoc/UTF8.hs+2−1
compare with master
unifiedsplit
@@ -75,7 +75,8 @@ hPutStrLn :: Handle -> String -> IO ()
75hPutStrLn h s = hSetEncoding h utf8 >> IO.hPutStrLn h s
75hPutStrLn h s = hSetEncoding h utf8 >> IO.hPutStrLn h s
76
76
77hGetContents :: Handle -> IO String
77hGetContents :: Handle -> IO String
78−hGetContents h = hSetEncoding h utf8_bom >> IO.hGetContents h
78+hGetContents h = hSetEncoding h utf8_bom >> hSetNewlineMode h universalNewlineMode
79+ >> IO.hGetContents h
79
80
80encodePath :: FilePath -> FilePath
81encodePath :: FilePath -> FilePath
81decodeArg :: String -> String
82decodeArg :: String -> String