haskell-relational-record/doc/slide/tsukuba-201412/Person.hs

{-# 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))