diff options
-rw-r--r-- | compiler/hsSyn/HsInstances.hs | 5 | ||||
-rw-r--r-- | compiler/hsSyn/HsInstances.hs-boot | 2 | ||||
-rw-r--r-- | compiler/hsSyn/HsInstances2.hs | 5 | ||||
-rw-r--r-- | compiler/hsSyn/HsInstances2.hs-boot | 2 |
4 files changed, 12 insertions, 2 deletions
diff --git a/compiler/hsSyn/HsInstances.hs b/compiler/hsSyn/HsInstances.hs index a674212c02..6b39c9a221 100644 --- a/compiler/hsSyn/HsInstances.hs +++ b/compiler/hsSyn/HsInstances.hs @@ -14,13 +14,16 @@ module HsInstances where -- UndecidableInstances ? -import {-# SOURCE #-} HsInstances2 () +import {-# SOURCE #-} HsInstances2 ( DummyHsInstances2 ) import Data.Data hiding ( Fixity ) import HsExtension import HsBinds import HsDecls +data DummyHsInstancesSeq +data DummyHsInstances p = DI (DummyHsInstances2 p) + -- Data derivations from HsBinds --------------------------------------- deriving instance (DataIdLR pL pR) => Data (HsLocalBindsLR pL pR) diff --git a/compiler/hsSyn/HsInstances.hs-boot b/compiler/hsSyn/HsInstances.hs-boot index a942e861b9..f17d934d47 100644 --- a/compiler/hsSyn/HsInstances.hs-boot +++ b/compiler/hsSyn/HsInstances.hs-boot @@ -10,6 +10,8 @@ import HsExtension ( DataIdLR ) import HsBinds import HsDecls +data DummyHsInstances (i :: *) + instance (DataIdLR p p) => Data (VectDecl p) instance (DataIdLR pL pR) => Data (HsLocalBindsLR pL pR) instance (DataIdLR p p) => Data (HsDecl p) diff --git a/compiler/hsSyn/HsInstances2.hs b/compiler/hsSyn/HsInstances2.hs index b0502c84fa..92d2f311b3 100644 --- a/compiler/hsSyn/HsInstances2.hs +++ b/compiler/hsSyn/HsInstances2.hs @@ -16,13 +16,16 @@ module HsInstances2 where import Data.Data hiding ( Fixity ) -import {-# SOURCE #-} HsInstances () +import {-# SOURCE #-} HsInstances ( DummyHsInstances ) import HsExtension import HsExpr import HsLit import HsTypes import HsPat +data DummyHsInstances2 p = DI2 (DummyHsInstances p) + + -- Data derivations from HsBinds --------------------------------------- {- deriving instance (DataIdLR pL pR) => Data (HsLocalBindsLR pL pR) diff --git a/compiler/hsSyn/HsInstances2.hs-boot b/compiler/hsSyn/HsInstances2.hs-boot index 33c7356d41..f9de5b7240 100644 --- a/compiler/hsSyn/HsInstances2.hs-boot +++ b/compiler/hsSyn/HsInstances2.hs-boot @@ -12,6 +12,8 @@ import HsExpr import HsTypes import HsPat +data DummyHsInstances2 (i :: *) + instance (DataIdLR p p) => Data (HsExpr p) instance (DataIdLR p p) => Data (HsTyVarBndr p) instance (DataIdLR p p) => Data (HsType p) |