From 4dd150fe66a1c6d56569793af6d1d4c1a58daf68 Mon Sep 17 00:00:00 2001 From: davve Date: Sat, 3 Feb 2007 21:23:56 +0000 Subject: Let restrictCons handle infix constructors --- src/Main.hs | 2 -- 1 file changed, 2 deletions(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index 8f61f8d9..59e4b751 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -869,9 +869,7 @@ mkExportItems mod_map this_mod exported_names exportedDeclMap localDeclMap sub_m Nothing -> return [] Just found -> return [ ExportDoc found ] - -- NOTE: I'm unsure about this. Currently only "External" names are considered. declWith :: Name -> ErrMsgM [ ExportItem Name ] - declWith t | not (isExternalName t) = return [] declWith t | (Just decl, maybeDoc) <- findDecl t = return [ ExportDecl t (restrictTo subs (extractDecl t mdl decl)) maybeDoc [] ] -- cgit v1.2.3