module Database.Relational.Schema.SQLite3Syscat.TableInfo where
import Data.Int (Int16, Int64)
import Database.Record.TH (derivingShow)
import Database.Relational.Query.TH (defineTableTypesAndRecordDefault)
import Database.Relational.Schema.SQLite3Syscat.Config (config)
$(defineTableTypesAndRecordDefault config
"pragma" "table_info"
[
("cid", [t|Int64|]),
("name", [t|String|]),
("ctype", [t|String|]),
("notnull", [t|Int16|]),
("dflt_value", [t|Maybe String|]),
("pk", [t|Int16|])
]
[derivingShow])