diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2018-12-10 17:32:34 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2018-12-21 13:00:14 +0000 |
| commit | 28188e06b4953f589c7cd442ae14787bc74cabf8 (patch) | |
| tree | 666bd2b0763dbd1c65f66fa23a3599e76628edca /compiler/rename/RnSource.hs | |
| parent | 71e26a74da5e5e9a61163b87ab4d22de88a2d04a (diff) | |
| download | haskell-28188e06b4953f589c7cd442ae14787bc74cabf8.tar.gz | |
Comments only
Diffstat (limited to 'compiler/rename/RnSource.hs')
| -rw-r--r-- | compiler/rename/RnSource.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/rename/RnSource.hs b/compiler/rename/RnSource.hs index 78444ba126..c76eb31abc 100644 --- a/compiler/rename/RnSource.hs +++ b/compiler/rename/RnSource.hs @@ -698,7 +698,7 @@ rnFamInstEqn :: HsDocContext -> Maybe (Name, [Name]) -- Nothing => not associated -- Just (cls,tvs) => associated, -- and gives class and tyvars of the - -- parent instance delc + -- parent instance decl -> [Located RdrName] -- Kind variables from the equation's RHS -> FamInstEqn GhcPs rhs -> (HsDocContext -> rhs -> RnM (rhs', FreeVars)) @@ -801,7 +801,9 @@ rnFamInstEqn doc mb_cls rhs_kvars rnFamInstEqn _ _ _ (HsIB _ (XFamEqn _)) _ = panic "rnFamInstEqn" rnFamInstEqn _ _ _ (XHsImplicitBndrs _) _ = panic "rnFamInstEqn" -rnTyFamInstDecl :: Maybe (Name, [Name]) +rnTyFamInstDecl :: Maybe (Name, [Name]) -- Just (cls,tvs) => associated, + -- and gives class and tyvars of + -- the parent instance decl -> TyFamInstDecl GhcPs -> RnM (TyFamInstDecl GhcRn, FreeVars) rnTyFamInstDecl mb_cls (TyFamInstDecl { tfid_eqn = eqn }) |