From f1ad2a23ab200dea9afa13ea7799f1786db80380 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sun, 11 Nov 2007 19:02:46 +0000
Subject: Fix a bug that made haddock loop

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

(limited to 'src')

diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 77362c6d..fba25fe2 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -51,7 +51,7 @@ createInterface ghcMod flags modMap = do
   opts0 <- mkDocOpts (ghcMbDocOpts ghcMod) flags mod
   let opts
         | Flag_IgnoreAllExports `elem` flags = OptIgnoreExports : opts0
-        | otherwise = opts
+        | otherwise = opts0
 
   let group        = ghcGroup ghcMod
       entities     = (nubBy sameName . getTopEntities) group
-- 
cgit v1.2.3