如何编写Haskell函数来查询数据库？

import Database.HDBC
import Database.HDBC.Sqlite3

connectToDB :: IO Connection
connectToDB = connectSqlite3 "path/to/database.db"

queryDB :: Connection -> String -> IO [[SqlValue]]
queryDB conn query = quickQuery conn query []

processResult :: [[SqlValue]] -> [String]
processResult rows = map (\row -> fromSql (head row)) rows

import Database.HDBC
import Database.HDBC.Sqlite3

connectToDB :: IO Connection
connectToDB = connectSqlite3 "path/to/database.db"

queryDB :: Connection -> String -> IO [[SqlValue]]
queryDB conn query = quickQuery conn query []

processResult :: [[SqlValue]] -> [String]
processResult rows = map (\row -> fromSql (head row)) rows

main :: IO ()
main = do
  conn <- connectToDB
  result <- queryDB conn "SELECT * FROM table"
  let processedResult = processResult result
  print processedResult
  disconnect conn