ByteStringでテキストをテキストに変換しますか？

Question

conduitを使用して、私のプライベートレポコードがコンパイルに失敗します。

Expected type: ConduitM 
        Text Void (Control.Monad.Trans.Resource.Internal.ResourceT IO)() 
    Actual type: ConduitM 
        ByteString 
        Void 
        (Control.Monad.Trans.Resource.Internal.ResourceT IO) 
        () 

どのように関数を定義することができますか？

type Helper a = ConduitM a Void (Control.Monad.Trans.Resource.Internal.ResourceT IO() 

f :: Helper ByteString -> Helper Text 

Answer 1

decodeUtf8C functionと通常の融合（.|演算子）を併用することをおすすめします。あなたのコードがどのように見える場合：

makesText .| needsByteString 

次に、あなたのようにそれを書き換えることができます：

makesText .| decodeUtf8C .| needsByteString 

また、あなたがエンコードのエラーを無視する場合decodeUtf8LenientCを使用するように選択することができます。

Answer 2

私は十分にうまくconduitを知らないが、ドキュメントを読んでから、私はの線に沿って何かをしようとするだろう：これはテストされていないmapInput、encodeUtf8とdecodeUtf8

を使用して

import Data.Void   (Void) 
import Data.Text   (Text) 
import Data.Text.Encoding (encodeUtf8, decodeUtf8) 
import Data.ByteString (ByteString) 
import Data.Conduit 

type Helper a = ConduitM a Void (Control.Monad.Trans.Resource.Internal.ResourceT IO)() 

f :: Helper ByteString -> Helper Text 
f = mapInput encodeUtf8 (pure . decodeUtf8) 

をそれがあなたのために働くかどうか教えてください！ :-)

ghciですぐにテストしたところ、うまくいくようです。あなたはdecodeUtf8のためのいくつかの適切なエラー処理をしたいかもしれません。