From 945060375413418895b730b9326d7cfec52d4ad8 Mon Sep 17 00:00:00 2001
From: davve <davve@dtek.chalmers.se>
Date: Sun, 3 Sep 2006 20:02:48 +0000
Subject: Compensate for change of export list order in GHC

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3