使用 Haskell 输出 UTF-8 编码的 ByteString

Question

我试图简单地将 UTF-8 编码的数据输出到控制台，简直是疯了。

我已成功使用 String 完成此操作，但现在我想使用 ByteString 完成相同的操作。有没有一种又好又快的方法来做到这一点？

这是我到目前为止所得到的，但它不起作用：

import Prelude hiding (putStr)
import Data.ByteString.Char8 (putStr, pack)

main :: IO ()
main = putStr $ pack "čušpajž日本語"

它打印出 uapaj~�,�，呃。

我想要最新的 GHC 6.12.1 的答案，尽管我也想听到以前版本的答案。

谢谢！

更新：简单地读取并输出相同的 UTF-8 编码文本行似乎可以正常工作。 （使用 Data.ByteString.Char8，我只需执行 putStr =<< getLine。）但是从 .hs 文件内部打包值，如上面的示例所示，拒绝正确输出...我一定做错了什么？

Answer 1

utf8-string 支持字节串。

import Prelude hiding (putStr)
import Data.ByteString.Char8 (putStr)
import Data.ByteString.UTF8 (fromString)

main :: IO ()
main = putStr $ fromString "čušpajž日本語"

Answer 2

bytestrings 是字节字符串。当它们输出时，它们将被截断为 8 位，如 Data.ByteString.Char8 文档中所述。您需要通过 Hackage 上的 utf8-string 包将它们显式转换为 utf8，该包包含对字节串的支持。

---

但是，从 2011 年开始，您应该使用 text 包来实现快速、打包的 unicode 输出。 GHC 截断 Unicode 字符输出

您的示例变得更加简单：

{-# LANGUAGE OverloadedStrings #-}

import qualified Data.Text    as T
import qualified Data.Text.IO as T

main = T.putStrLn "čušpajž日本語"

如下所示：

$ runhaskell A.hs
čušpajž日本語

Answer 3

这是一个已知的 ghc 错误，标记为“wontfix”。