pg_write.hs

import Database.HDBC
import Database.HDBC.PostgreSQL

main = do
    conn <- connectPostgreSQL "dbname=postgres user=postgres"
    run conn "TRUNCATE test;" []
    insert <- prepare conn "INSERT INTO test VALUES (?);"
    executeMany insert values
    commit conn
    disconnect conn

myfun :: [Int] -> [[SqlValue]]
myfun x =  map (\v -> [toSql v]) x

values = myfun [11..111]