haskell-relational-record/relational-join-HDBC-pgTest/sample/1/User.hs

11 lines
235 B
Haskell
Raw Normal View History

2013-05-13 10:16:00 +04:00
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses #-}
module User where
import Prelude hiding (id)
import PgTestDataSource (defineTable)
import Database.Record.TH (derivingShow)
$(defineTable []
"SAMPLE1" "user" [derivingShow])