diff options
| author | David Waern <david.waern@gmail.com> | 2007-11-11 19:02:46 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2007-11-11 19:02:46 +0000 |
| commit | f1ad2a23ab200dea9afa13ea7799f1786db80380 (patch) | |
| tree | 8bad736740ab29f098aa319c4c399f8d11680956 | |
| parent | 9a8611a7e73d79cd434acdac78ef59615463f44c (diff) | |
Fix a bug that made haddock loop
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |