diff options
Diffstat (limited to 'compiler/hsSyn/HsDecls.lhs')
| -rw-r--r-- | compiler/hsSyn/HsDecls.lhs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs index bae804eb07..932810708d 100644 --- a/compiler/hsSyn/HsDecls.lhs +++ b/compiler/hsSyn/HsDecls.lhs @@ -31,6 +31,7 @@ module HsDecls ( DataFamInstDecl(..), LDataFamInstDecl, pprDataFamInstFlavour, TyFamInstEqn(..), LTyFamInstEqn, LClsInstDecl, ClsInstDecl(..), + placeHolderRepTyCon, -- ** Standalone deriving declarations DerivDecl(..), LDerivDecl, @@ -921,6 +922,7 @@ type LDataFamInstDecl name = Located (DataFamInstDecl name) data DataFamInstDecl name = DataFamInstDecl { dfid_tycon :: Located name + , dfid_rep_tycon :: Name -- error thunk until renamer , dfid_pats :: HsWithBndrs [LHsType name] -- lhs -- ^ Type patterns (with kind and type bndrs) -- See Note [Family instance declaration binders] @@ -928,6 +930,10 @@ data DataFamInstDecl name , dfid_fvs :: NameSet } -- free vars for dependency analysis deriving( Typeable, Data ) +placeHolderRepTyCon :: Name +-- Used for the Name in DataFamInstDecl prior to the renamer +placeHolderRepTyCon = panic "placeHolderRepTyCon" + ----------------- Class instances ------------- |