如何在Haskell中使用postgresql-simple插入byte值

cabal install postgresql-simple

import Database.PostgreSQL.Simple
import Data.ByteString

connStr = "host=<数据库主机地址> port=<数据库端口> user=<用户名> password=<密码> dbname=<数据库名>"
poolSize = 10 -- 连接池中的连接数
createPool (connectPostgreSQL connStr) close poolSize 0.5 10

insertByteValue :: ByteString -> IO ()
insertByteValue byteValue = do
    conn <- takeResource -- 从连接池中获取一个连接
    execute conn "INSERT INTO table_name (byte_column) VALUES (?)" (Only byteValue)
    putResource conn -- 将连接放回连接池

main :: IO ()
main = do
    let byteValue = "your_byte_value" -- 替换为实际的byte值
    withResource insertByteValue -- 使用连接池执行插入操作