From 4d2820bafa5c30e2b8bf296a1eb8609e82ad50cb Mon Sep 17 00:00:00 2001 From: "davve@dtek.chalmers.se" Date: Mon, 26 Mar 2007 04:57:01 +0000 Subject: Add fall-through case to mkExportItem --- src/Main.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src') diff --git a/src/Main.hs b/src/Main.hs index 96ea3b4b..46c1353b 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -880,6 +880,7 @@ fullContentsOfThisModule module_ entities declMap docMap where mkExportItem (DocEntity (DocGroup lev doc)) = Just (ExportGroup lev "" doc) mkExportItem (DeclEntity name) = fmap mkExport (Map.lookup name declMap) + mkExportItem _ = Nothing where mkExport decl = ExportDecl name decl (Map.lookup name docMap) [] -- Sometimes the declaration we want to export is not the "main" declaration: -- cgit v1.2.3