diff options
Diffstat (limited to 'compiler/hsSyn/HsSyn.hs')
-rw-r--r-- | compiler/hsSyn/HsSyn.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/compiler/hsSyn/HsSyn.hs b/compiler/hsSyn/HsSyn.hs index 1534491a47..b9abcf2683 100644 --- a/compiler/hsSyn/HsSyn.hs +++ b/compiler/hsSyn/HsSyn.hs @@ -16,6 +16,7 @@ therefore, is almost nothing but re-exporting. -- in module PlaceHolder {-# LANGUAGE ConstraintKinds #-} {-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE FlexibleInstances #-} -- For deriving instance Data module HsSyn ( module HsBinds, @@ -31,7 +32,7 @@ module HsSyn ( module HsExtension, Fixity, - HsModule(..) + HsModule(..), ) where -- friends: @@ -49,6 +50,7 @@ import HsTypes import BasicTypes ( Fixity, WarningTxt ) import HsUtils import HsDoc +import HsInstances () -- others: import Outputable @@ -111,7 +113,10 @@ data HsModule name -- hsmodImports,hsmodDecls if this style is used. -- For details on above see note [Api annotations] in ApiAnnotation -deriving instance (DataIdLR name name) => Data (HsModule name) +-- deriving instance (DataIdLR name name) => Data (HsModule name) +deriving instance Data (HsModule GhcPs) +deriving instance Data (HsModule GhcRn) +deriving instance Data (HsModule GhcTc) instance (p ~ GhcPass pass, OutputableBndrId p) => Outputable (HsModule p) where |