Commit 25d6a04a authored by batterseapower's avatar batterseapower
Browse files

Fix decodingerror002 on Windows

parent 71399424
......@@ -6,14 +6,14 @@ import GHC.IO.Handle (hSetEncoding)
main = do
-- Explicitly set stdout encoding so that the UTF8//ROUNDTRIP
-- test is always able to write the surrogate byte out without error.
enc <- mkTextEncoding "UTF8//ROUNDTRIP"
enc <- mkTextEncoding "UTF-8//ROUNDTRIP"
hSetEncoding stdout enc
alltests "decodingerror002.in"
alltests file = mapM (test file) ["UTF8",
"UTF8//IGNORE",
"UTF8//TRANSLIT",
"UTF8//ROUNDTRIP"]
alltests file = mapM (test file) ["UTF-8",
"UTF-8//IGNORE",
"UTF-8//TRANSLIT",
"UTF-8//ROUNDTRIP"]
test file enc_name = do
h <- openFile file ReadMode
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment