mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-12-15 23:03:19 +03:00
7e98380848
--HG-- rename : schema-th/pgTest/PgTest.hs => relational-join-HDBC-pgTest/pgTest/PgTest.hs rename : schema-th/pgTest/PgTestDataSource.hs => relational-join-HDBC-pgTest/pgTest/PgTestDataSource.hs rename : schema-th/pgTest/runCreate.sh => relational-join-HDBC-pgTest/pgTest/runCreate.sh rename : schema-th/pgTest/runDrop.sh => relational-join-HDBC-pgTest/pgTest/runDrop.sh rename : schema-th/sample/1/Group.hs => relational-join-HDBC-pgTest/sample/1/Group.hs rename : schema-th/sample/1/Membership.hs => relational-join-HDBC-pgTest/sample/1/Membership.hs rename : schema-th/sample/1/README => relational-join-HDBC-pgTest/sample/1/README rename : schema-th/sample/1/User.hs => relational-join-HDBC-pgTest/sample/1/User.hs rename : schema-th/sample/1/create.sh => relational-join-HDBC-pgTest/sample/1/create.sh rename : schema-th/sample/1/drop.sh => relational-join-HDBC-pgTest/sample/1/drop.sh rename : schema-th/sample/1/querySample.hs => relational-join-HDBC-pgTest/sample/1/querySample.hs
11 lines
235 B
Haskell
11 lines
235 B
Haskell
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses #-}
|
|
|
|
module User where
|
|
|
|
import Prelude hiding (id)
|
|
import PgTestDataSource (defineTable)
|
|
import Database.Record.TH (derivingShow)
|
|
|
|
$(defineTable []
|
|
"SAMPLE1" "user" [derivingShow])
|