将值列表传递给Haskell中的SELECT PostgreSQL查询

import Database.HDBC
import Database.HDBC.PostgreSQL

main :: IO ()
main = do
  -- 连接到PostgreSQL数据库
  conn <- connectPostgreSQL "host=localhost dbname=mydb user=myuser password=mypassword"

  -- 准备参数化查询
  stmt <- prepare conn "SELECT * FROM mytable WHERE column1 IN ?"

  -- 定义值列表
  let values = [toSql "value1", toSql "value2", toSql "value3"]

  -- 执行查询
  execute stmt [SqlList values]

  -- 获取查询结果
  rows <- fetchAllRows stmt

  -- 处理查询结果
  mapM_ print rows

  -- 关闭连接
  disconnect conn