mysql access fails when compiled but not when 'runghc'ed

import Database.HDBC
import Database.HDBC.MySQL as MySQL

connectDatabase :: IO MySQL.Connection
connectDatabase = connectMySQL defaultMySQLConnectInfo
                  { mysqlHost = "127.0.0.1" , mysqlUser = "root", mysqlPassword = "root", mysqlDatabase = "k2x", mysqlPort = 3306, mysqlUnixSocket = "" }

main = do
    nativeconn <- connectDatabase
    -- tables <- quickQuery' nativeconn "show tables" []
    rows <- run nativeconn "CREATE OR REPLACE VIEW user_usergroup_map AS SELECT * FROM adz2h_user_usergroup_map" []
    return ()