X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=blobdiff_plain;f=GHC%2FIO%2FEncoding.hs;h=505824e30a4821fb8eccdd4e3e0cb30f98bcbfea;hp=953fc2e2591aa406eaa0908a8fe74968425c4435;hb=4c889c7daa98daff7aec5c0e4ccf491f25f5d10c;hpb=509f28cc93b980d30aca37008cbe66c677a0d6f6

diff --git a/GHC/IO/Encoding.hs b/GHC/IO/Encoding.hs
index 953fc2e..505824e 100644
--- a/GHC/IO/Encoding.hs
+++ b/GHC/IO/Encoding.hs
@@ -117,11 +117,11 @@ foreignEncoding :: TextEncoding
 
 #if !defined(mingw32_HOST_OS)
 localeEncoding = Iconv.localeEncoding
-fileSystemEncoding = Iconv.mkLocaleEncoding SurrogateEscapeFailure
+fileSystemEncoding = Iconv.mkLocaleEncoding RoundtripFailure
 foreignEncoding = Iconv.mkLocaleEncoding IgnoreCodingFailure
 #else
 localeEncoding = CodePage.localeEncoding
-fileSystemEncoding = CodePage.mkLocaleEncoding SurrogateEscapeFailure
+fileSystemEncoding = CodePage.mkLocaleEncoding RoundtripFailure
 foreignEncoding = CodePage.mkLocaleEncoding IgnoreCodingFailure
 #endif
 
@@ -176,7 +176,7 @@ mkTextEncoding e = case mb_coding_failure_mode of
         ""            -> Just ErrorOnCodingFailure
         "//IGNORE"    -> Just IgnoreCodingFailure
         "//TRANSLIT"  -> Just TransliterateCodingFailure
-        "//SURROGATE" -> Just SurrogateEscapeFailure
+        "//ROUNDTRIP" -> Just RoundtripFailure
         _             -> Nothing
     
     unknown_encoding = ioException (IOError Nothing NoSuchThing "mkTextEncoding"