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

12 lines
238 B
Haskell
Raw Normal View History

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