diff options
| author | davve@dtek.chalmers.se <David Waern> | 2007-03-26 04:57:01 +0000 |
|---|---|---|
| committer | davve@dtek.chalmers.se <David Waern> | 2007-03-26 04:57:01 +0000 |
| commit | 4d2820bafa5c30e2b8bf296a1eb8609e82ad50cb (patch) | |
| tree | fb0c895f98e85c20911f43621ad1be7311f7ffcb | |
| parent | 7d04a6d5c770d28488d105c3c65e8f14984a7cbe (diff) | |
Add fall-through case to mkExportItem
| -rw-r--r-- | src/Main.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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: |