{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.SQLite3.TableInfo where
import GHC.Generics (Generic)
import Data.Int (Int16, Int64)
import Database.Relational.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.SQLite3.Config (config)
$(defineTableTypesAndRecord config
"pragma" "table_info"
[
("cid", [t|Int64|]),
("name", [t|String|]),
("ctype", [t|String|]),
("notnull", [t|Int16|]),
("dflt_value", [t|Maybe String|]),
("pk", [t|Int16|])
]
[''Show, ''Generic])