test-mysql.hs

{-# LANGUAGE OverloadedStrings #-}

import qualified Database.MySQL.Base as MySQL
import Database.MySQL.Base (defaultConnectInfo, ConnectInfo(..), Option(..))

test :: IO ()
test = do
    let conf = defaultConnectInfo {
                      connectHost     = "172.17.0.2"
                    , connectDatabase = "testapp"
                    , connectUser     = "tester"
                    , connectPassword = "tester"
                    , connectOptions  = [CharsetName "utf8mb4"]
                    }
    c <- MySQL.connect conf
    MySQL.query c "select 1 + 1"
    res <- MySQL.useResult c
    row <- MySQL.fetchRow res
    print row