update :: Query -> String -> Connection -> IO Int64
update prepStmt param cn = execute cn prepStmt [param]
update :: Query -> String -> Connection -> IO Int64
update prepStmt param cn = execute cn prepStmt [param]
update prepStmt param cn = execute cn prepStmt [param]