{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.IBMDB2.Keycoluse where
import GHC.Generics (Generic)
import Data.Int (Int16)
import Database.Relational.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.IBMDB2.Config (config)
$(defineTableTypesAndRecord config
"SYSCAT" "keycoluse"
[("constname", [t| String |]),
("colname" , [t| String |]),
("colseq" , [t| Int16 |])]
[''Show, ''Generic])