X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnNames.lhs;h=029df843f08ea8c51adccfb2d067565c9a381dc9;hb=28f7bda61e5f3b2a8e3711ee1f93e863ecb7620b;hp=359c470af74cf13c26b29340baeaa392e564473c;hpb=dc5fc2a6d44009577f5d1ba6a403ed5e1ab22af5;p=ghc-hetmet.git

diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs
index 359c470..029df84 100644
--- a/compiler/rename/RnNames.lhs
+++ b/compiler/rename/RnNames.lhs
@@ -52,7 +52,7 @@ import Util
 import ListSetOps
 import Data.List        ( partition, concatMap, (\\), delete )
 import IO		( openFile, IOMode(..) )
-import Monad		( when )
+import Monad		( when, mplus )
 \end{code}
 
 
@@ -1026,7 +1026,7 @@ lookupImpDeprec :: DynFlags -> HomePackageTable -> PackageIfaceTable
 -- The name is definitely imported, so look in HPT, PIT
 lookupImpDeprec dflags hpt pit gre
   = case lookupIfaceByModule dflags hpt pit (nameModule name) of
-	Just iface -> mi_dep_fn iface name `seqMaybe` 	-- Bleat if the thing, *or
+	Just iface -> mi_dep_fn iface name `mplus` 	-- Bleat if the thing, *or
 		      case gre_par gre of	
 			ParentIs p -> mi_dep_fn iface p	-- its parent*, is deprec'd
 			NoParent   -> Nothing