summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKeiHibino <>2017-07-17 11:14:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-07-17 11:14:00 (GMT)
commitfb81ebda69ad26c94affb06d081624869c822b4d (patch)
treeb4341973bfbd45c4f8ba1842cef365e810acb17d
parent32bf3513a54125f228bbb8ee5f9d0e9acafbbb17 (diff)
version 0.1.3.40.1.3.4
-rw-r--r--ChangeLog.md25
-rw-r--r--relational-schemas.cabal11
-rw-r--r--src/Database/Relational/Schema/DB2Syscat/Columns.hs7
-rw-r--r--src/Database/Relational/Schema/DB2Syscat/Keycoluse.hs6
-rw-r--r--src/Database/Relational/Schema/DB2Syscat/Tabconst.hs6
-rw-r--r--src/Database/Relational/Schema/MySQLInfo/Columns.hs4
-rw-r--r--src/Database/Relational/Schema/MySQLInfo/KeyColumnUsage.hs4
-rw-r--r--src/Database/Relational/Schema/MySQLInfo/TableConstraints.hs4
-rw-r--r--src/Database/Relational/Schema/OracleDataDictionary/ConsColumns.hs5
-rw-r--r--src/Database/Relational/Schema/OracleDataDictionary/Constraints.hs4
-rw-r--r--src/Database/Relational/Schema/OracleDataDictionary/TabColumns.hs7
-rw-r--r--src/Database/Relational/Schema/PgCatalog/PgAttribute.hs7
-rw-r--r--src/Database/Relational/Schema/PgCatalog/PgClass.hs7
-rw-r--r--src/Database/Relational/Schema/PgCatalog/PgConstraint.hs7
-rw-r--r--src/Database/Relational/Schema/PgCatalog/PgNamespace.hs7
-rw-r--r--src/Database/Relational/Schema/PgCatalog/PgType.hs7
-rw-r--r--src/Database/Relational/Schema/SQLServerSyscat/Columns.hs4
-rw-r--r--src/Database/Relational/Schema/SQLServerSyscat/IndexColumns.hs4
-rw-r--r--src/Database/Relational/Schema/SQLServerSyscat/Indexes.hs5
-rw-r--r--src/Database/Relational/Schema/SQLServerSyscat/Types.hs4
-rw-r--r--src/Database/Relational/Schema/SQLite3Syscat/IndexInfo.hs4
-rw-r--r--src/Database/Relational/Schema/SQLite3Syscat/IndexList.hs4
-rw-r--r--src/Database/Relational/Schema/SQLite3Syscat/TableInfo.hs4
23 files changed, 44 insertions, 103 deletions
diff --git a/ChangeLog.md b/ChangeLog.md
deleted file mode 100644
index 5da6181..0000000
--- a/ChangeLog.md
+++ /dev/null
@@ -1,25 +0,0 @@
-<!-- -*- Markdown -*- -->
-
-## 0.1.3.3
-
-- Use Haskell implementation test instead of flag test in .cabal
-
-## 0.1.3.2
-
-- Apply generic instances to schema queries.
-
-## 0.1.3.1
-
-- Add tested-with.
-
-## 0.1.3.0
-
-- Update typeMap of SQLite3 schema.
-
-## 0.1.2.0
-
-- Get type info of network address in PostgreSQL schema.
-
-## 0.1.1.0
-
-- Add medium-int to typeMap of MySQL schema.
diff --git a/relational-schemas.cabal b/relational-schemas.cabal
index 599897a..24eb997 100644
--- a/relational-schemas.cabal
+++ b/relational-schemas.cabal
@@ -1,5 +1,5 @@
name: relational-schemas
-version: 0.1.3.3
+version: 0.1.3.4
synopsis: RDBMSs' schema templates for relational-query
description: This package contains some RDBMSs' schema structure definitions.
Supported RDBMS schemas are below:
@@ -18,12 +18,12 @@ copyright: Copyright (c) 2013-2017 Kei Hibino, Shohei Murayama, Shohei
category: Database
build-type: Simple
cabal-version: >=1.10
-tested-with: GHC == 8.0.1, GHC == 8.0.2
+tested-with: GHC == 8.2.1
+ , GHC == 8.0.1, GHC == 8.0.2
, GHC == 7.10.1, GHC == 7.10.2, GHC == 7.10.3
, GHC == 7.8.1, GHC == 7.8.2, GHC == 7.8.3, GHC == 7.8.4
, GHC == 7.6.1, GHC == 7.6.2, GHC == 7.6.3
, GHC == 7.4.1, GHC == 7.4.2
-extra-source-files: ChangeLog.md
library
exposed-modules:
@@ -79,10 +79,7 @@ library
, time
, bytestring
- , relational-query >= 0.9
-
- if impl(ghc == 7.4.*)
- build-depends: ghc-prim == 0.2.*
+ , relational-query >=0.8 && <0.9
hs-source-dirs: src
ghc-options: -Wall
diff --git a/src/Database/Relational/Schema/DB2Syscat/Columns.hs b/src/Database/Relational/Schema/DB2Syscat/Columns.hs
index 3b0a7b4..d3ea339 100644
--- a/src/Database/Relational/Schema/DB2Syscat/Columns.hs
+++ b/src/Database/Relational/Schema/DB2Syscat/Columns.hs
@@ -1,10 +1,9 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
-- |
-- Module : Database.Relational.Schema.DB2Syscat.Columns
--- Copyright : 2013-2017 Kei Hibino
+-- Copyright : 2013 Kei Hibino
-- License : BSD3
--
-- Maintainer : ex8k.hibino@gmail.com
@@ -14,8 +13,8 @@
-- Generate template of SYSCAT.columns system catalog table.
module Database.Relational.Schema.DB2Syscat.Columns where
-import GHC.Generics (Generic)
import Data.Int (Int16, Int32, Int64)
+
import Database.Relational.Query.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.DB2Syscat.Config (config)
@@ -100,4 +99,4 @@ $(defineTableTypesAndRecord config
("remarks", [t|Maybe String|])
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/DB2Syscat/Keycoluse.hs b/src/Database/Relational/Schema/DB2Syscat/Keycoluse.hs
index 83a81de..0fcdb97 100644
--- a/src/Database/Relational/Schema/DB2Syscat/Keycoluse.hs
+++ b/src/Database/Relational/Schema/DB2Syscat/Keycoluse.hs
@@ -1,10 +1,9 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
-- |
-- Module : Database.Relational.Schema.DB2Syscat.Keycoluse
--- Copyright : 2013-2017 Kei Hibino
+-- Copyright : 2013 Kei Hibino
-- License : BSD3
--
-- Maintainer : ex8k.hibino@gmail.com
@@ -16,7 +15,6 @@
-- Minimum implementation required to generate table constraints.
module Database.Relational.Schema.DB2Syscat.Keycoluse where
-import GHC.Generics (Generic)
import Data.Int (Int16)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
@@ -29,4 +27,4 @@ $(defineTableTypesAndRecord config
[("constname", [t| String |]),
("colname" , [t| String |]),
("colseq" , [t| Int16 |])]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/DB2Syscat/Tabconst.hs b/src/Database/Relational/Schema/DB2Syscat/Tabconst.hs
index bdddc60..56b962c 100644
--- a/src/Database/Relational/Schema/DB2Syscat/Tabconst.hs
+++ b/src/Database/Relational/Schema/DB2Syscat/Tabconst.hs
@@ -1,10 +1,9 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
-- |
-- Module : Database.Relational.Schema.DB2Syscat.Tabconst
--- Copyright : 2013-2017 Kei Hibino
+-- Copyright : 2013 Kei Hibino
-- License : BSD3
--
-- Maintainer : ex8k.hibino@gmail.com
@@ -16,7 +15,6 @@
-- Minimum implementation required to generate table constraints.
module Database.Relational.Schema.DB2Syscat.Tabconst where
-import GHC.Generics (Generic)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.DB2Syscat.Config (config)
@@ -31,4 +29,4 @@ $(defineTableTypesAndRecord config
--
("type" , [t| String |]),
("enforced" , [t| String |])]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/MySQLInfo/Columns.hs b/src/Database/Relational/Schema/MySQLInfo/Columns.hs
index d1ac443..d48685b 100644
--- a/src/Database/Relational/Schema/MySQLInfo/Columns.hs
+++ b/src/Database/Relational/Schema/MySQLInfo/Columns.hs
@@ -1,10 +1,8 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.MySQLInfo.Columns where
-import GHC.Generics (Generic)
import Data.Int (Int16)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
@@ -21,4 +19,4 @@ $(defineTableTypesAndRecord config
, ("is_nullable", [t|String|])
, ("data_type", [t|String|])
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/MySQLInfo/KeyColumnUsage.hs b/src/Database/Relational/Schema/MySQLInfo/KeyColumnUsage.hs
index fc17d70..e50961f 100644
--- a/src/Database/Relational/Schema/MySQLInfo/KeyColumnUsage.hs
+++ b/src/Database/Relational/Schema/MySQLInfo/KeyColumnUsage.hs
@@ -1,10 +1,8 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.MySQLInfo.KeyColumnUsage where
-import GHC.Generics (Generic)
import Data.Int (Int16)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
@@ -19,4 +17,4 @@ $(defineTableTypesAndRecord config
, ("column_name" , [t| String |])
, ("ordinal_position" , [t| Int16 |])
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/MySQLInfo/TableConstraints.hs b/src/Database/Relational/Schema/MySQLInfo/TableConstraints.hs
index 37a3ef3..e63a5d1 100644
--- a/src/Database/Relational/Schema/MySQLInfo/TableConstraints.hs
+++ b/src/Database/Relational/Schema/MySQLInfo/TableConstraints.hs
@@ -1,10 +1,8 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.MySQLInfo.TableConstraints where
-import GHC.Generics (Generic)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.MySQLInfo.Config (config)
@@ -17,4 +15,4 @@ $(defineTableTypesAndRecord config
, ("constraint_name" , [t| String |])
, ("constraint_type" , [t| String |])
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/OracleDataDictionary/ConsColumns.hs b/src/Database/Relational/Schema/OracleDataDictionary/ConsColumns.hs
index 5a1f1c6..52f4a80 100644
--- a/src/Database/Relational/Schema/OracleDataDictionary/ConsColumns.hs
+++ b/src/Database/Relational/Schema/OracleDataDictionary/ConsColumns.hs
@@ -1,11 +1,10 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.OracleDataDictionary.ConsColumns where
-import GHC.Generics (Generic)
import Data.Int (Int32)
+
import Database.Relational.Query.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.OracleDataDictionary.Config (config)
@@ -25,4 +24,4 @@ $(defineTableTypesAndRecord config
, ("column_name", [t|Maybe String|])
-- POSITION NUMBER
, ("position", [t|Maybe Int32|])
- ] [''Show, ''Generic])
+ ] [''Show])
diff --git a/src/Database/Relational/Schema/OracleDataDictionary/Constraints.hs b/src/Database/Relational/Schema/OracleDataDictionary/Constraints.hs
index ca3b93f..49a8121 100644
--- a/src/Database/Relational/Schema/OracleDataDictionary/Constraints.hs
+++ b/src/Database/Relational/Schema/OracleDataDictionary/Constraints.hs
@@ -1,10 +1,8 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.OracleDataDictionary.Constraints where
-import GHC.Generics (Generic)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.OracleDataDictionary.Config (config)
@@ -38,4 +36,4 @@ $(defineTableTypesAndRecord config
-- INDEX_NAME VARCHAR2(30)
-- INVALID VARCHAR2(7)
-- VIEW_RELATED VARCHAR2(14)
- ] [''Show, ''Generic])
+ ] [''Show])
diff --git a/src/Database/Relational/Schema/OracleDataDictionary/TabColumns.hs b/src/Database/Relational/Schema/OracleDataDictionary/TabColumns.hs
index 57973e1..e0297d2 100644
--- a/src/Database/Relational/Schema/OracleDataDictionary/TabColumns.hs
+++ b/src/Database/Relational/Schema/OracleDataDictionary/TabColumns.hs
@@ -1,11 +1,12 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.OracleDataDictionary.TabColumns where
-import GHC.Generics (Generic)
import Data.Int (Int32)
+-- import Data.ByteString (ByteString)
+-- import Data.Time.Calendar (Day)
+
import Database.Relational.Query.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.OracleDataDictionary.Config (config)
@@ -77,4 +78,4 @@ $(defineTableTypesAndRecord config
, ("data_upgraded", [t|Maybe String|])
-- HISTOGRAM VARCHAR2(15)
, ("histogram", [t|Maybe String|])
- ] [''Show, ''Generic])
+ ] [''Show])
diff --git a/src/Database/Relational/Schema/PgCatalog/PgAttribute.hs b/src/Database/Relational/Schema/PgCatalog/PgAttribute.hs
index cbe5804..ac1a1a2 100644
--- a/src/Database/Relational/Schema/PgCatalog/PgAttribute.hs
+++ b/src/Database/Relational/Schema/PgCatalog/PgAttribute.hs
@@ -1,10 +1,9 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
-- |
-- Module : Database.HDBC.Schema.PgCatalog.PgAttribute
--- Copyright : 2013-2017 Kei Hibino
+-- Copyright : 2013 Kei Hibino
-- License : BSD3
--
-- Maintainer : ex8k.hibino@gmail.com
@@ -12,8 +11,8 @@
-- Portability : unknown
module Database.Relational.Schema.PgCatalog.PgAttribute where
-import GHC.Generics (Generic)
import Data.Int (Int16, Int32)
+
import Database.Relational.Query.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.PgCatalog.Config (config)
@@ -67,4 +66,4 @@ $(defineTableTypesAndRecord config
-- attoptions | text[] |
-- ("attoptions" , [t|String|])
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/PgCatalog/PgClass.hs b/src/Database/Relational/Schema/PgCatalog/PgClass.hs
index feebd50..ddab5f3 100644
--- a/src/Database/Relational/Schema/PgCatalog/PgClass.hs
+++ b/src/Database/Relational/Schema/PgCatalog/PgClass.hs
@@ -1,10 +1,9 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
-- |
-- Module : Database.Relational.Schema.PgCatalog.PgClass
--- Copyright : 2013-2017 Kei Hibino
+-- Copyright : 2013 Kei Hibino
-- License : BSD3
--
-- Maintainer : ex8k.hibino@gmail.com
@@ -12,8 +11,8 @@
-- Portability : unknown
module Database.Relational.Schema.PgCatalog.PgClass where
-import GHC.Generics (Generic)
import Data.Int (Int32)
+
import Database.Relational.Query.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.PgCatalog.Config (config)
@@ -51,4 +50,4 @@ $(defineTableTypesAndRecord config
-- relacl | aclitem[] |
-- reloptions | text[] |
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/PgCatalog/PgConstraint.hs b/src/Database/Relational/Schema/PgCatalog/PgConstraint.hs
index c18dda6..9ce60fd 100644
--- a/src/Database/Relational/Schema/PgCatalog/PgConstraint.hs
+++ b/src/Database/Relational/Schema/PgCatalog/PgConstraint.hs
@@ -1,10 +1,9 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
-- |
-- Module : Database.Relational.Schema.PgCatalog.PgConstraint
--- Copyright : 2013-2017 Kei Hibino
+-- Copyright : 2013 Kei Hibino
-- License : BSD3
--
-- Maintainer : ex8k.hibino@gmail.com
@@ -12,8 +11,8 @@
-- Portability : unknown
module Database.Relational.Schema.PgCatalog.PgConstraint where
-import GHC.Generics (Generic)
import Data.Int (Int32)
+
import Database.Relational.Query.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.PgCatalog.Config (config)
@@ -49,4 +48,4 @@ $(defineTableTypesAndRecord config
-- conbin | pg_node_tree |
-- consrc | text |
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/PgCatalog/PgNamespace.hs b/src/Database/Relational/Schema/PgCatalog/PgNamespace.hs
index 55f8f84..5aaf320 100644
--- a/src/Database/Relational/Schema/PgCatalog/PgNamespace.hs
+++ b/src/Database/Relational/Schema/PgCatalog/PgNamespace.hs
@@ -1,10 +1,9 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
-- |
-- Module : Database.Relational.Schema.PgCatalog.PgNamespace
--- Copyright : 2013-2017 Kei Hibino
+-- Copyright : 2013 Kei Hibino
-- License : BSD3
--
-- Maintainer : ex8k.hibino@gmail.com
@@ -12,8 +11,8 @@
-- Portability : unknown
module Database.Relational.Schema.PgCatalog.PgNamespace where
-import GHC.Generics (Generic)
import Data.Int (Int32)
+
import Database.Relational.Query.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.PgCatalog.Config (config)
@@ -27,4 +26,4 @@ $(defineTableTypesAndRecord config
-- nspowner | oid | not null
-- nspacl | aclitem[] |
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/PgCatalog/PgType.hs b/src/Database/Relational/Schema/PgCatalog/PgType.hs
index f8baf70..c92374f 100644
--- a/src/Database/Relational/Schema/PgCatalog/PgType.hs
+++ b/src/Database/Relational/Schema/PgCatalog/PgType.hs
@@ -1,10 +1,9 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
-- |
-- Module : Database.Relational.Schema.PgCatalog.PgType
--- Copyright : 2013-2017 Kei Hibino
+-- Copyright : 2013 Kei Hibino
-- License : BSD3
--
-- Maintainer : ex8k.hibino@gmail.com
@@ -12,8 +11,8 @@
-- Portability : unknown
module Database.Relational.Schema.PgCatalog.PgType where
-import GHC.Generics (Generic)
import Data.Int (Int16, Int32)
+
import Database.Relational.Query.TH (defineTableTypesAndRecord)
import Database.Relational.Schema.PgCatalog.Config (config)
@@ -86,4 +85,4 @@ $(defineTableTypesAndRecord config
-- typdefault | text |
("typdefault", [t|Maybe String|])
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/SQLServerSyscat/Columns.hs b/src/Database/Relational/Schema/SQLServerSyscat/Columns.hs
index 74f44d0..cd92761 100644
--- a/src/Database/Relational/Schema/SQLServerSyscat/Columns.hs
+++ b/src/Database/Relational/Schema/SQLServerSyscat/Columns.hs
@@ -1,10 +1,8 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.SQLServerSyscat.Columns where
-import GHC.Generics (Generic)
import Data.Int (Int32)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
@@ -67,4 +65,4 @@ $(defineTableTypesAndRecord config
-- is_column_set sys bit 1 Yes
--("is_column_set", [t|Maybe Bool|])
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/SQLServerSyscat/IndexColumns.hs b/src/Database/Relational/Schema/SQLServerSyscat/IndexColumns.hs
index 88a05e2..5094193 100644
--- a/src/Database/Relational/Schema/SQLServerSyscat/IndexColumns.hs
+++ b/src/Database/Relational/Schema/SQLServerSyscat/IndexColumns.hs
@@ -1,10 +1,8 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.SQLServerSyscat.IndexColumns where
-import GHC.Generics (Generic)
import Data.Int (Int32)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
@@ -31,4 +29,4 @@ $(defineTableTypesAndRecord config
-- is_included_column sys bit 1 No
("is_included_column", [t|Bool|])
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/SQLServerSyscat/Indexes.hs b/src/Database/Relational/Schema/SQLServerSyscat/Indexes.hs
index 8151536..264a4f6 100644
--- a/src/Database/Relational/Schema/SQLServerSyscat/Indexes.hs
+++ b/src/Database/Relational/Schema/SQLServerSyscat/Indexes.hs
@@ -1,10 +1,9 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.SQLServerSyscat.Indexes where
-import GHC.Generics (Generic)
+--import Data.ByteString (ByteString)
import Data.Int (Int32)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
@@ -54,4 +53,4 @@ $(defineTableTypesAndRecord config
-- filter_definition sys nvarchar max Yes
--("filter_definition", [t|Maybe ByteString|])
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/SQLServerSyscat/Types.hs b/src/Database/Relational/Schema/SQLServerSyscat/Types.hs
index 2d6c3cf..e499d8d 100644
--- a/src/Database/Relational/Schema/SQLServerSyscat/Types.hs
+++ b/src/Database/Relational/Schema/SQLServerSyscat/Types.hs
@@ -1,10 +1,8 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.SQLServerSyscat.Types where
-import GHC.Generics (Generic)
import Data.Int (Int32)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
@@ -48,4 +46,4 @@ $(defineTableTypesAndRecord config
-- is_table_type sys bit 1 No
--("is_table_type", [t|Bool|])
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/SQLite3Syscat/IndexInfo.hs b/src/Database/Relational/Schema/SQLite3Syscat/IndexInfo.hs
index 93802aa..aa38032 100644
--- a/src/Database/Relational/Schema/SQLite3Syscat/IndexInfo.hs
+++ b/src/Database/Relational/Schema/SQLite3Syscat/IndexInfo.hs
@@ -1,10 +1,8 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.SQLite3Syscat.IndexInfo where
-import GHC.Generics (Generic)
import Data.Int (Int64)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
@@ -24,4 +22,4 @@ $(defineTableTypesAndRecord config
-- name text No
("name", [t|String|])
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/SQLite3Syscat/IndexList.hs b/src/Database/Relational/Schema/SQLite3Syscat/IndexList.hs
index 4f958f2..09769c6 100644
--- a/src/Database/Relational/Schema/SQLite3Syscat/IndexList.hs
+++ b/src/Database/Relational/Schema/SQLite3Syscat/IndexList.hs
@@ -1,10 +1,8 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.SQLite3Syscat.IndexList where
-import GHC.Generics (Generic)
import Data.Int (Int64)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
@@ -24,4 +22,4 @@ $(defineTableTypesAndRecord config
-- unique integer No
("unique", [t|Int64|])
]
- [''Show, ''Generic])
+ [''Show])
diff --git a/src/Database/Relational/Schema/SQLite3Syscat/TableInfo.hs b/src/Database/Relational/Schema/SQLite3Syscat/TableInfo.hs
index 93fe569..5cc49be 100644
--- a/src/Database/Relational/Schema/SQLite3Syscat/TableInfo.hs
+++ b/src/Database/Relational/Schema/SQLite3Syscat/TableInfo.hs
@@ -1,10 +1,8 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
module Database.Relational.Schema.SQLite3Syscat.TableInfo where
-import GHC.Generics (Generic)
import Data.Int (Int16, Int64)
import Database.Relational.Query.TH (defineTableTypesAndRecord)
@@ -30,4 +28,4 @@ $(defineTableTypesAndRecord config
-- pk integer No
("pk", [t|Int16|])
]
- [''Show, ''Generic])
+ [''Show])