diff options
| -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 |