{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.SQLite3.IndexInfo where
import GHC.Generics (Generic)
import Data.Int (Int64)
import Database.Relational.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.SQLite3.Config (config)
$(defineTableTypesAndRecord config
"pragma" "index_info"
[
("seqno", [t|Int64|]),
("cid", [t|Int64|]),
("name", [t|String|])
]
[''Show, ''Generic])