mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-12-16 07:52:05 +03:00
15 lines
262 B
Haskell
15 lines
262 B
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module User where
|
|
|
|
import Data.Int
|
|
import Database.Relational.Query.TH
|
|
import Database.Record.TH (derivingShow)
|
|
|
|
$(defineTableDefault'
|
|
"SAMPLE1"
|
|
"user"
|
|
[("id", [t|Int32|])
|
|
,("name", [t|Maybe String|])]
|
|
[derivingShow])
|