{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.SQLServer.IndexColumns where
import GHC.Generics (Generic)
import Data.Int (Int32)
import Database.Relational.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.SQLServer.Config (config)
$(defineTableTypesAndRecord config
"sys" "index_columns"
[
("object_id", [t|Int32|]),
("index_id", [t|Int32|]),
("column_id", [t|Int32|]),
("key_ordinal", [t|Int32|]),
("is_included_column", [t|Bool|])
]
[''Show, ''Generic])