mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-12-15 06:43:04 +03:00
15 lines
276 B
Haskell
15 lines
276 B
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Membership where
|
|
|
|
import Data.Int
|
|
import Database.Relational.Query.TH
|
|
import Database.Record.TH (derivingShow)
|
|
|
|
$(defineTableDefault'
|
|
"SAMPLE1"
|
|
"membership"
|
|
[("user_id", [t|Int32|])
|
|
,("group_id", [t|Int32|])]
|
|
[derivingShow])
|