From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 8 Feb 2011 09:01:21 +0000 (+0000)
Subject: Fix bug introduced in "Implement fuzzy matching for the Finder"
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c21f0768fcaa95720e22ed5d7814b398645f6c17

Fix bug introduced in "Implement fuzzy matching for the Finder"
The finder was reporting a hidden package when it meant a hidden
module, and vice versa (looks like a typo).
---

diff --git a/compiler/main/Finder.lhs b/compiler/main/Finder.lhs
index 5b1bae4..d8a6271 100644
--- a/compiler/main/Finder.lhs
+++ b/compiler/main/Finder.lhs
@@ -196,7 +196,7 @@ findExposedPackageModule hsc_env mod_name mb_pkg
        Right found
          | null found_exposed   -- Found, but with no exposed copies
           -> return (NotFound { fr_paths = [], fr_pkg = Nothing
-                              , fr_pkgs_hidden = mod_hiddens, fr_mods_hidden = pkg_hiddens
+                              , fr_pkgs_hidden = pkg_hiddens, fr_mods_hidden = mod_hiddens
                               , fr_suggestions = [] })
 
          | [(pkg_conf,_)] <- found_exposed     -- Found uniquely