From 81765cc90d6d91aa1c6a649190d5a4a740a9082e Mon Sep 17 00:00:00 2001 From: Thomas Schilling Date: Sun, 14 Sep 2008 20:58:11 +0000 Subject: [PATCH] Provide accessors for 'ImportDecl'. --- compiler/hsSyn/HsImpExp.lhs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/compiler/hsSyn/HsImpExp.lhs b/compiler/hsSyn/HsImpExp.lhs index 099537f..c3a3b5b 100644 --- a/compiler/hsSyn/HsImpExp.lhs +++ b/compiler/hsSyn/HsImpExp.lhs @@ -33,13 +33,16 @@ One per \tr{import} declaration in a module. \begin{code} type LImportDecl name = Located (ImportDecl name) +-- | A single Haskell @import@ declaration. data ImportDecl name - = ImportDecl (Located ModuleName) -- module name - (Maybe FastString) -- package qualifier - Bool -- True <=> {-# SOURCE #-} import - Bool -- True => qualified - (Maybe ModuleName) -- as Module - (Maybe (Bool, [LIE name])) -- (True => hiding, names) + = ImportDecl { + ideclName :: Located ModuleName, -- ^ Module name. + ideclPkgQual :: Maybe FastString, -- ^ Package qualifier. + ideclSource :: Bool, -- ^ True <=> {-# SOURCE #-} import + ideclQualified :: Bool, -- ^ True => qualified + ideclAs :: Maybe ModuleName, -- ^ as Module + ideclHiding :: Maybe (Bool, [LIE name]) -- ^ (True => hiding, names) + } \end{code} \begin{code} @@ -66,9 +69,6 @@ instance (Outputable name) => Outputable (ImportDecl name) where = parens (interpp'SP spec) pp_spec (Just (True, spec)) = ptext (sLit "hiding") <+> parens (interpp'SP spec) - -ideclName :: ImportDecl name -> Located ModuleName -ideclName (ImportDecl mod_nm _ _ _ _ _) = mod_nm \end{code} %************************************************************************ -- 1.7.10.4