mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-12-26 21:42:15 +03:00
16 lines
347 B
Haskell
16 lines
347 B
Haskell
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances #-}
|
|
|
|
module Person where
|
|
|
|
import Data.Int
|
|
import Database.Relational.Query
|
|
import Database.Relational.Query.TH
|
|
|
|
$(defineTable defaultConfig
|
|
"PUBLIC" "person"
|
|
[ ("name" , [t| String |])
|
|
, ("age" , [t| Int32 |])
|
|
, ("address", [t| String |])
|
|
]
|
|
[] [0] (Just 0))
|