diff options
| author | Simon Jakobi <simon.jakobi@gmail.com> | 2018-05-21 20:04:07 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-05-29 16:37:58 -0400 |
| commit | 9969863adbd8f467d029254b5520c3340dacd980 (patch) | |
| tree | a0044a4d0fec56f485189c1bdebf84d986b59a58 /compiler/hsSyn | |
| parent | d14b1ec658b72f20aceed6835ae37e4c3d5bc5b9 (diff) | |
| download | haskell-9969863adbd8f467d029254b5520c3340dacd980.tar.gz | |
Use a less confusing type variable in a few types
Diffstat (limited to 'compiler/hsSyn')
| -rw-r--r-- | compiler/hsSyn/HsImpExp.hs | 4 | ||||
| -rw-r--r-- | compiler/hsSyn/HsSyn.hs | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/compiler/hsSyn/HsImpExp.hs b/compiler/hsSyn/HsImpExp.hs index 6f38ba31c7..39bd9b7e18 100644 --- a/compiler/hsSyn/HsImpExp.hs +++ b/compiler/hsSyn/HsImpExp.hs @@ -41,7 +41,7 @@ One per \tr{import} declaration in a module. -} -- | Located Import Declaration -type LImportDecl name = Located (ImportDecl name) +type LImportDecl pass = Located (ImportDecl pass) -- ^ When in a list this may have -- -- - 'ApiAnnotation.AnnKeywordId' : 'ApiAnnotation.AnnSemi' @@ -166,7 +166,7 @@ type LIEWrappedName name = Located (IEWrappedName name) -- | Located Import or Export -type LIE name = Located (IE name) +type LIE pass = Located (IE pass) -- ^ When in a list this may have -- -- - 'ApiAnnotation.AnnKeywordId' : 'ApiAnnotation.AnnComma' diff --git a/compiler/hsSyn/HsSyn.hs b/compiler/hsSyn/HsSyn.hs index b9abcf2683..e04abbf70f 100644 --- a/compiler/hsSyn/HsSyn.hs +++ b/compiler/hsSyn/HsSyn.hs @@ -63,12 +63,12 @@ import Data.Data hiding ( Fixity ) -- | Haskell Module -- -- All we actually declare here is the top-level structure for a module. -data HsModule name +data HsModule pass = HsModule { hsmodName :: Maybe (Located ModuleName), -- ^ @Nothing@: \"module X where\" is omitted (in which case the next -- field is Nothing too) - hsmodExports :: Maybe (Located [LIE name]), + hsmodExports :: Maybe (Located [LIE pass]), -- ^ Export list -- -- - @Nothing@: export list omitted, so export everything @@ -82,11 +82,11 @@ data HsModule name -- ,'ApiAnnotation.AnnClose' -- For details on above see note [Api annotations] in ApiAnnotation - hsmodImports :: [LImportDecl name], + hsmodImports :: [LImportDecl pass], -- ^ We snaffle interesting stuff out of the imported interfaces early -- on, adding that info to TyDecls/etc; so this list is often empty, -- downstream. - hsmodDecls :: [LHsDecl name], + hsmodDecls :: [LHsDecl pass], -- ^ Type, class, value, and interface signature decls hsmodDeprecMessage :: Maybe (Located WarningTxt), -- ^ reason\/explanation for warning/deprecation of this module |