diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2019-09-11 21:19:39 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-09-20 05:14:34 -0400 |
| commit | 5119296440e6846c553c72b8a93afc5ecfa576f0 (patch) | |
| tree | ff508560a4996afffb24bf3af5dfa9c56a7e5c77 /compiler/rename/RnSource.hs | |
| parent | 4853d962289db1b32886ec73e824cd37c9c5c002 (diff) | |
| download | haskell-5119296440e6846c553c72b8a93afc5ecfa576f0.tar.gz | |
Module hierarchy: Hs (#13009)
Add GHC.Hs module hierarchy replacing hsSyn.
Metric Increase:
haddock.compiler
Diffstat (limited to 'compiler/rename/RnSource.hs')
| -rw-r--r-- | compiler/rename/RnSource.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/rename/RnSource.hs b/compiler/rename/RnSource.hs index 79280ee43f..229c66fda4 100644 --- a/compiler/rename/RnSource.hs +++ b/compiler/rename/RnSource.hs @@ -21,7 +21,7 @@ import GhcPrelude import {-# SOURCE #-} RnExpr( rnLExpr ) import {-# SOURCE #-} RnSplice ( rnSpliceDecl, rnTopSpliceDecls ) -import HsSyn +import GHC.Hs import FieldLabel import RdrName import RnTypes @@ -1617,7 +1617,7 @@ dataDeclHasCUSK tyvars new_or_data no_rhs_kvs has_kind_sig = do | NewType <- new_or_data = unlifted_newtypes && not has_kind_sig | otherwise = False - -- See Note [CUSKs: complete user-supplied kind signatures] in HsDecls + -- See Note [CUSKs: complete user-supplied kind signatures] in GHC.Hs.Decls ; cusks_enabled <- xoptM LangExt.CUSKs ; return $ cusks_enabled && hsTvbAllKinded tyvars && no_rhs_kvs && not non_cusk_newtype @@ -2073,7 +2073,7 @@ rnConDecl decl@(ConDeclGADT { con_names = names RecCon {} -> (new_args, new_res_ty) PrefixCon as | (arg_tys, final_res_ty) <- splitHsFunType new_res_ty -> ASSERT( null as ) - -- See Note [GADT abstract syntax] in HsDecls + -- See Note [GADT abstract syntax] in GHC.Hs.Decls (PrefixCon arg_tys, final_res_ty) new_qtvs = HsQTvs { hsq_ext = implicit_tkvs |