diff options
| author | davve@dtek.chalmers.se <David Waern> | 2007-03-26 05:24:26 +0000 |
|---|---|---|
| committer | davve@dtek.chalmers.se <David Waern> | 2007-03-26 05:24:26 +0000 |
| commit | 80966ec53d0f236b83c2b9a99e40ef56217ec86c (patch) | |
| tree | e9e44f1d0968d7127075b0a7ddd2a7b4eaef897a | |
| parent | 6ebc895072968d490c8a5d0a78b01a2b0477fc6d (diff) | |
Fix stupid compile error
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |