projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
#if !defined(mingw32_HOST_OS)
localeEncoding = Iconv.localeEncoding
-fileSystemEncoding = Iconv.mkLocaleEncoding SurrogateEscapeFailure
+fileSystemEncoding = Iconv.mkLocaleEncoding RoundtripFailure
foreignEncoding = Iconv.mkLocaleEncoding IgnoreCodingFailure
#else
localeEncoding = CodePage.localeEncoding
foreignEncoding = Iconv.mkLocaleEncoding IgnoreCodingFailure
#else
localeEncoding = CodePage.localeEncoding
-fileSystemEncoding = CodePage.mkLocaleEncoding SurrogateEscapeFailure
+fileSystemEncoding = CodePage.mkLocaleEncoding RoundtripFailure
foreignEncoding = CodePage.mkLocaleEncoding IgnoreCodingFailure
#endif
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
"" -> Just ErrorOnCodingFailure
"//IGNORE" -> Just IgnoreCodingFailure
"//TRANSLIT" -> Just TransliterateCodingFailure
- "//SURROGATE" -> Just SurrogateEscapeFailure
+ "//ROUNDTRIP" -> Just RoundtripFailure
_ -> Nothing
unknown_encoding = ioException (IOError Nothing NoSuchThing "mkTextEncoding"
_ -> Nothing
unknown_encoding = ioException (IOError Nothing NoSuchThing "mkTextEncoding"