From 001811e508ca91bd6caacfc3bf1eb31820e5c1ab Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sat, 8 Jun 2002 14:03:36 +0000
Subject: [haddock @ 2002-06-08 14:03:36 by panne] Tiny workaround for the fact
 that Haddock currently ignores HsImportSpecs: Let the local_orig_env take
 precedence. This is no real solution at all, but improves things sometimes,
 e.g. in my GLUT documentation.  :-)

---
 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 503c47e7..82162ef1 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -176,7 +176,7 @@ mkInterface mod_map filename
 
      -- build the orig_env, which maps names to *original* names (so we can
      -- find the original declarations & docs for things).
-     orig_env = local_orig_env `plusFM` buildOrigEnv mod_map imps
+     orig_env = buildOrigEnv mod_map imps `plusFM` local_orig_env
 
      -- convert names in source code to original, fully qualified, names
      (orig_exports, missing_names1) 
-- 
cgit v1.2.3