diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2017-11-18 11:10:53 +0200 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2017-11-18 11:10:53 +0200 |
| commit | 315be165b54dda7aed8d4044780ef29539071a18 (patch) | |
| tree | 93d3ad7ef823e91385a1c235d689500505e10646 | |
| parent | 0cd0c39fc7884a8e26d1e3d43c7d9243359d51da (diff) | |
| download | haskell-wip/ttg5-data-2017-11-17.tar.gz | |
Add dummy types to force GHC make to build boot fileswip/ttg5-data-2017-11-17
| -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) |