Usando Haskell para dar salida a una ByteString codificada en UTF-8

Question

Me estoy volviendo loco intentando simplemente enviar datos codificados en UTF-8 a la consola.

Lo he logrado con String, pero ahora me gustaría hacer lo mismo con ByteString. ¿Hay alguna manera buena y rápida de hacer esto?

Esto es lo que tengo hasta ahora, y que no está funcionando:

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

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

imprime uapaj~�,�, uf.

Me gustaría obtener una respuesta para el último GHC 6.12.1 mejor, aunque también me gustaría recibir respuestas para las versiones anteriores.

Gracias!

Actualización: Simplemente leer y generar la misma línea de texto codificada en UTF-8 parece funcionar correctamente. (Usando Data.ByteString.Char8, acabo de hacer un putStr =<< getLine). Pero los valores empaquetados desde dentro del archivo .hs, como en el ejemplo anterior, se niegan a dar salida correctamente ... ¿Debo estar haciendo algo mal?

Answer 1

utf8-string soporta cadenas de bytes.

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 son cadenas de bytes. Cuando salgan, se truncarán a 8 bits, como se describe en la documentación para Data.ByteString.Char8. Tendrá que convertirlos explícitamente a utf8 - a través del paquete utf8-string en Hackage, que contiene soporte para cadenas de bytes.

---

Sin embargo, a partir de 2011, se debe utilizar el paquete text, para, salida rápida Unicode lleno. GHC truncating Unicode character output

Su ejemplo se convierte en mucho más simple:

{-# LANGUAGE OverloadedStrings #-} 

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

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

así:

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