From 53fd105c591a4f89cdd2f7b56f982db871f38e67 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 5 Jun 2002 09:05:07 +0000
Subject: [haddock @ 2002-06-05 09:05:07 by simonmar] Keep foreign imports when
 there is no export list (bug reported by Sven Panne).

---
 src/Main.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'src')

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:
-- 
cgit v1.2.3