Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

UTF8: use universalNewlineMode in reading.

Browse source 
This treats both '\r\n' and '\n' as '\n' on input, no matter
what platform we're running on.
This commit is contained in:
John MacFarlane 2012-09-25 14:55:12 -07:00
parent 4ab30f3cea
commit 833977416f
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/UTF8.hs
View file

@ -75,7 +75,8 @@ hPutStrLn :: Handle -> String -> IO ()
hPutStrLn h s = hSetEncoding h utf8 >> IO.hPutStrLn h s
hGetContents :: Handle -> IO String
hGetContents h = hSetEncoding h utf8_bom >> IO.hGetContents h
hGetContents h = hSetEncoding h utf8_bom >> hSetNewlineMode h universalNewlineMode
>> IO.hGetContents h
encodePath :: FilePath -> FilePath
decodeArg :: String -> String