Haskell - HDBC and MySQL

hdbc_mysql.hs

import Control.Monad
import System.IO
import Database.HDBC
import Database.HDBC.MySQL
import Data.Char
import qualified Data.Map as Map

main = do conn <- connectMySQL defaultMySQLConnectInfo {
                    mysqlUser     = "testing",
                    mysqlPassword = "testing1234",
                    mysqlDatabase = "test"
                 }

          rows <- quickQuery' conn "SELECT * from persons" []
          forM_ rows $ \row -> putStrLn $ show row
          sth <- prepare conn "SELECT * from persons"
          execute sth []
          cols <- getColumnNames sth
          forM_ cols $ \col -> putStrLn $ show col