khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-13 17:32:35 +03:00
Code Issues Projects Releases Wiki Activity

Remove redundant syntax elements in doc examples.

Browse Source
This commit is contained in:
Kei Hibino 2014-12-10 14:40:59 +09:00
parent 1105c7b235
commit 7d33e26f44
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doc/examples/DataSource.hs
View File

@ -13,7 +13,7 @@ connect :: IO Connection
connect = connectPostgreSQL "dbname=testdb"
defineTable :: [(String, TypeQ)] -> String -> String -> [ConName] -> Q [Dec]
defineTable tmap scm tbl derives = do
defineTable tmap scm tbl derives =
defineTableFromDB
connect
(driverPostgreSQL { typeMap = tmap })

2
doc/examples/Query.hs
View File

@ -34,7 +34,7 @@ import DataSource (connect)
import Database.HDBC.Record.Query (runQuery)
import Database.HDBC.Session (withConnectionIO, handleSqlError')
allAccount :: Relation () (Account)
allAccount :: Relation () Account
allAccount =
relation
[ a