khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-10-26 10:18:01 +03:00
Code Issues Projects Releases Wiki Activity

Fix broken example.

Browse Source
This commit is contained in:
Kei Hibino 2016-04-30 17:54:52 +09:00
parent f08956b2ae
commit fa2f6cf7f0
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/HDBC/MySQL/hrr-example-HDBC-MySQL.cabal
View File

@ -31,6 +31,7 @@ executable example
, HDBC-session
, names-th
, relational-query >= 0.7
, relational-schemas
, relational-query-HDBC >= 0.4
, time
default-language:

6
examples/HDBC/MySQL/src/Example/DataSource.hs
View File

@ -19,8 +19,8 @@ import Database.HDBC.MySQL ( Connection
)
import Database.Relational.Schema.MySQLInfo.Config (config)
config :: MySQLConnectInfo
config = defaultMySQLConnectInfo {
connConfig :: MySQLConnectInfo
connConfig = defaultMySQLConnectInfo {
mysqlUser = "hrr-tester"
, mysqlPassword = ""
, mysqlDatabase = "TEST"
@ -28,7 +28,7 @@ config = defaultMySQLConnectInfo {
}
connect :: IO Connection
connect = connectMySQL config
connect = connectMySQL connConfig
defineTable :: [(String, TypeQ)] -> String -> String -> [Name] -> Q [Dec]
defineTable tmap = defineTableFromDB' connect config (driverMySQL { typeMap = tmap })