From 80966ec53d0f236b83c2b9a99e40ef56217ec86c Mon Sep 17 00:00:00 2001 From: "davve@dtek.chalmers.se" Date: Mon, 26 Mar 2007 05:24:26 +0000 Subject: Fix stupid compile error --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index 46c1353b..264c1ec3 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -880,8 +880,8 @@ 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) [] + mkExportItem _ = Nothing -- Sometimes the declaration we want to export is not the "main" declaration: -- it might be an individual record selector or a class method. In these -- cgit v1.2.3