Haskell中如何将文件内容转换为ByteString字面量？

要把文件中的二进制内容硬编码为Haskell里的ByteString字面量，有两种实用方法，适配不同场景：

方法一：手动生成字节列表 #

如果需要手动复制粘贴内容，可以先将文件内容转换成十六进制字节序列，再用Data.ByteString.pack构造ByteString：

1. 用命令行工具提取文件的十六进制字节：

   hexdump -v -e '1/1 "0x%02X, "' myfile
   

   这个命令会输出类似0x48, 0x65, 0x6C, 0x6C, 0x6F, 的内容。

2. 将输出的字节序列填入pack的列表参数中：

   import Data.ByteString (ByteString, pack)
   import Data.Word (Word8)
   
   serialized_literal :: ByteString
   serialized_literal = pack [0x48, 0x65, 0x6C, 0x6C, 0x6F] -- 替换为你的文件字节
   

如果文件内容以可打印字符为主，也可以启用OverloadedStrings扩展，直接用转义字符串表示：

{-# LANGUAGE OverloadedStrings #-}
import Data.ByteString (ByteString)

serialized_literal :: ByteString
serialized_literal = "Hello\NUL\SOH" -- 包含转义的不可打印字符

但这种方式对二进制数据可读性差，更适合纯文本场景。

方法二：用Template Haskell自动嵌入（推荐） #

如果不想手动处理字节，可以用file-embed包在编译时自动将文件内容嵌入代码，完全无需手动复制：

1. 先安装依赖：

   cabal install file-embed
   

2. 在代码中使用embedFile函数：

   {-# LANGUAGE TemplateHaskell #-}
   import Data.ByteString (ByteString)
   import Data.FileEmbed (embedFile)
   
   serialized_literal :: ByteString
   serialized_literal = $(embedFile "myfile")
   

   编译时，Template Haskell会读取myfile的内容，并生成对应的ByteString字面量，运行时直接使用，无需IO操作。

验证有效性 #

修改你的示例代码后，可以验证硬编码的字面量和文件内容一致：

{-# LANGUAGE OverloadedStrings #-}
import Data.ByteString (ByteString, serialize, readFile, pack)
import Data.Word (Word8)

someComplicatedObject :: MyDataType
someComplicatedObject = ...

serialized :: ByteString
serialized = serialize someComplicatedObject

-- 用方法一的示例
serialized_literal :: ByteString
serialized_literal = pack [0xXX, 0xXX, ...] -- 替换为实际字节

-- 或者用方法二
-- serialized_literal = $(embedFile "myfile")

main :: IO ()
main = do
  writeFile "myfile" serialized
  fromFile <- readFile "myfile"
  
  print $ serialized == fromFile -- 应为True
  print $ fromFile == serialized_literal -- 应为True

内容的提问来源于stack exchange，提问作者cmspice