diff options
| author | davve <davve@dtek.chalmers.se> | 2007-02-03 21:23:56 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2007-02-03 21:23:56 +0000 |
| commit | 4dd150fe66a1c6d56569793af6d1d4c1a58daf68 (patch) | |
| tree | b22491aec88cae32e20e69a73fa8f93485a032a0 /src/Main.hs | |
| parent | 288ed096e584def7a2a30767e4b6d76177f2f75c (diff) | |
Let restrictCons handle infix constructors
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 0 insertions, 2 deletions
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 [] ] |