diff options
| author | simonmar <unknown> | 2002-06-05 09:05:07 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-06-05 09:05:07 +0000 |
| commit | 53fd105c591a4f89cdd2f7b56f982db871f38e67 (patch) | |
| tree | bd52560d2cf902047b6dda2607349c8eddda7120 | |
| parent | 620db27bb85de955bf179654b793e354c0c7de71 (diff) | |
[haddock @ 2002-06-05 09:05:07 by simonmar]
Keep foreign imports when there is no export list (bug reported by
Sven Panne).
| -rw-r--r-- | src/Main.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/Main.hs b/src/Main.hs index cb751180..503c47e7 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -335,12 +335,13 @@ fullContentsOfThisModule mod decl_map = where mkExportItem (x,HsDocGroup loc lev doc) = ExportGroup lev "" doc mkExportItem (x,decl) = ExportDecl (Qual mod x) decl -keepDecl HsTypeSig{} = True -keepDecl HsTypeDecl{} = True -keepDecl HsNewTypeDecl{} = True -keepDecl HsDataDecl{} = True -keepDecl HsClassDecl{} = True -keepDecl HsDocGroup{} = True +keepDecl HsTypeSig{} = True +keepDecl HsTypeDecl{} = True +keepDecl HsNewTypeDecl{} = True +keepDecl HsDataDecl{} = True +keepDecl HsClassDecl{} = True +keepDecl HsDocGroup{} = True +keepDecl HsForeignImport{} = True keepDecl _ = False -- Sometimes the declaration we want to export is not the "main" declaration: |