Use Unicode private-use characters for roundtripping

[ghc-base.git] / GHC / IO / Encoding.hs

diff --git a/GHC/IO/Encoding.hs b/GHC/IO/Encoding.hs
index 953fc2e..505824e 100644 (file)
--- 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"