json - JSON をレイジー ByteString としてファイルに書き込み、Aeson エンコード出力から文字列に変換せずに直接書き込みます

Question

現在、JSON コンテンツ ( my_json) をファイル ( my_output_filepath)に書き込むために、次のようなものを使用しています。

import           Data.Aeson.Encode.Pretty
import qualified Data.ByteString.Lazy.UTF8 as U

writeFile my_output_filepath $ U.toString $ encodePretty my_json

これは機能しますが、 ( )ByteStringによって返されるをファイルに書き込む前に に変換する必要があるのか​​、それともパフォーマンスが低下するのか疑問に思っています。encodePrettyString

入力としてa を受け入れるバリアントがあることがわかりました。ただし、使用しようとすると、次のエラーが発生します。writeFileByteString

Couldn't match expected type ‘B.ByteString’
            with actual type ‘U.ByteString’
NB: ‘B.ByteString’ is defined in ‘Data.ByteString.Internal’
    ‘U.ByteString’ is defined in ‘Data.ByteString.Lazy.Internal’

と相互運用するLazyバリアントを取得する方法はありますか?ByteStringwriteFile