diff options
| author | davve <davve@dtek.chalmers.se> | 2006-09-03 20:02:48 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2006-09-03 20:02:48 +0000 |
| commit | 945060375413418895b730b9326d7cfec52d4ad8 (patch) | |
| tree | f314a321d0ced2095e086b3e0fb87cc5c3d922bc | |
| parent | 3cc9be3b11007fe0eb3e55a6a09b22f6b73243f4 (diff) | |
Compensate for change of export list order in GHC
| -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 de0f99d9..f166e99c 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -489,7 +489,7 @@ pass1 modules flags = worker modules (Map.empty) flags let (group, _, mb_exports, mbModDoc, haddockModInfo) = renamed_source entities = (reverse . nubBy sameName . hs_docs) group - exports = fmap (reverse . map unLoc) mb_exports + exports = fmap (map unLoc) mb_exports -- lots of names exportedNames = modInfoExports moduleInfo |