Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/6d8546d914875dc5e2134719922d1bad80ea5a74 >--------------------------------------------------------------- commit 6d8546d914875dc5e2134719922d1bad80ea5a74 Author: Max Bolingbroke <[email protected]> Date: Mon Sep 26 14:33:53 2011 +0100 Fix decodingerror002 on Windows >--------------------------------------------------------------- tests/lib/IO/decodingerror002.hs | 10 +++++----- 1 files changed, 5 insertions(+), 5 deletions(-) diff --git a/tests/lib/IO/decodingerror002.hs b/tests/lib/IO/decodingerror002.hs index a1a2373..db610bd 100644 --- a/tests/lib/IO/decodingerror002.hs +++ b/tests/lib/IO/decodingerror002.hs @@ -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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
