Verwenden von Haskell, um einen UTF-8-codierten ByteString auszugeben

Question

Ich gehe mir durch den Kopf und versuche, einfach UTF-8-kodierte Daten an die Konsole auszugeben.

Ich habe es geschafft, dies mit String zu erreichen, aber jetzt möchte ich das gleiche mit ByteString tun. Gibt es einen schönen und schnellen Weg, dies zu tun? Diese

ist, was ich so weit gekommen, und es funktioniert nicht:

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

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

Es uapaj~�,� ausdruckt, igitt.

Ich hätte gerne eine Antwort für die neueste GHC 6.12.1 am besten, obwohl ich auch Antworten auf frühere Versionen hören möchte.

Danke!

Update: Einfaches Lesen und Ausgeben derselben UTF-8-codierten Textzeile scheint korrekt zu funktionieren. (Mit Data.ByteString.Char8, mache ich nur eine putStr =<< getLine.) Aber gepackte Werte aus der .hs-Datei, wie im obigen Beispiel, weigern sich, richtig auszugeben ... Ich muss etwas falsch machen?

Answer 1

utf8-string unterstützt bytestrings.

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

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

Answer 2

This is a known ghc bug, marked "wontfix".

Answer 3

bytestrings sind Strings von Bytes. Wenn sie ausgegeben werden, werden sie auf 8 Bit gekürzt, wie in der Dokumentation für Data.ByteString.Char8 beschrieben. Sie müssen sie explizit in utf8 konvertieren - über das utf8-string Paket auf Hackage, das Unterstützung für Bytestrings enthält.

---

jedoch ab 2011, sollten Sie das text Paket verwenden, für die schnellen, verpackt Unicode-Output. GHC truncating Unicode character output

Ihr Beispiel wird viel einfacher:

{-# LANGUAGE OverloadedStrings #-} 

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

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

Wie so:

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