{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.IBMDB2.Tabconst where
import GHC.Generics (Generic)
import Database.Relational.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.IBMDB2.Config (config)
$(defineTableTypesAndRecord config
"SYSCAT" "tabconst"
[("constname", [t| String |]),
("tabschema", [t| String |]),
("tabname" , [t| String |]),
("type" , [t| String |]),
("enforced" , [t| String |])]
[''Show, ''Generic])