X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsImpExp.lhs;fp=ghc%2Fcompiler%2FhsSyn%2FHsImpExp.lhs;h=b47abf4914770206e1c8ae9d4a1db099356ef593;hb=0075a4cd7eb75a28b4978255e696a9a583172355;hp=8f51b6d6f6a5775893850edc8ae0a74085112cd4;hpb=6eaf5c6c69483cab51ba2967b75655459fa5cc96;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsImpExp.lhs b/ghc/compiler/hsSyn/HsImpExp.lhs
index 8f51b6d..b47abf4 100644
--- a/ghc/compiler/hsSyn/HsImpExp.lhs
+++ b/ghc/compiler/hsSyn/HsImpExp.lhs
@@ -48,6 +48,8 @@ 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 mod_nm _ _ _ _ _) = mod_nm
 \end{code}
 
 %************************************************************************