findModule: add a fallthrough error case

2bad3deb · Simon Marlow · f6613a3a · 2bad3deb
Commit 2bad3deb authored Aug 22, 2006 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

compiler/main/GHC.hs compiler/main/GHC.hs +3 -1

No files found.
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -1849,7 +1849,9 @@ findModule' hsc_env mod_name maybe_pkg =
 	  res <- findImportedModule hsc_env mod_name Nothing
 	  case res of
 	    Found _ m | modulePackageId m /= this_pkg -> return m
-                        -- not allowed to be a home module
+		      | otherwise -> throwDyn (CmdLineError (showSDoc $
+					text "module" <+> pprModule m <+>
+					text "is not loaded"))
 	    err -> let msg = cannotFindModule dflags mod_name err in
 		   throwDyn (CmdLineError (showSDoc msg))