X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FHscTypes.lhs;h=c1e6f34b16f2794f64a1dc3ef22affaff09f181d;hb=7936b988d6d0a5f9a9b439c7d4a6adf616ddb9b5;hp=6b59a5915deed4bb786707579a18790f3ff898c8;hpb=7f1db085b2256e3372feca52d493ca7577413cbe;p=ghc-hetmet.git

diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index 6b59a59..c1e6f34 100644
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -800,14 +800,12 @@ data FindResult
 	-- ^ The requested package was not found
   | FoundMultiple [PackageId]
 	-- ^ _Error_: both in multiple packages
-  | PackageHidden PackageId
-	-- ^ For an explicit source import, the package containing the module is
-	-- not exposed.
-  | ModuleHidden  PackageId
-	-- ^ For an explicit source import, the package containing the module is
-	-- exposed, but the module itself is hidden.
-  | NotFound [FilePath] (Maybe PackageId)
-	-- ^ The module was not found, the specified places were searched
+  | NotFound [FilePath] (Maybe PackageId) [PackageId] [PackageId]
+	-- ^ The module was not found, including either
+        --    * the specified places were searched
+        --    * the package that this module should have been in
+        --    * list of packages in which the module was hidden,
+        --    * list of hidden packages containing this module
   | NotFoundInPackage PackageId
 	-- ^ The module was not found in this package
 
@@ -844,11 +842,10 @@ data ModIface
 	mi_boot	    :: !IsBootInterface,    -- ^ Read from an hi-boot file?
 
 	mi_deps	    :: Dependencies,
-	        -- ^ The dependencies of the module, consulted for directly
-	        -- imported modules only
-	
-		-- This is consulted for directly-imported modules,
-		-- but not for anything else (hence lazy)
+	        -- ^ The dependencies of the module.  This is
+		-- consulted for directly-imported modules, but not
+		-- for anything else (hence lazy)
+
         mi_usages   :: [Usage],
                 -- ^ Usages; kept sorted so that it's easy to decide
 		-- whether to write a new iface file (changing usages