X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FDsMonad.lhs;h=ae76bfdfec403e7d0f265fd66c4cab6cfdf1ef51;hp=f24dee4905257e0dbb16c1c0a4f45fc4e697eca0;hb=61d2625ae2e6a4cdae2ffc92df828905e81c24cc;hpb=b93eb0c23bed01905e86c0a8c485edb388626761

diff --git a/compiler/deSugar/DsMonad.lhs b/compiler/deSugar/DsMonad.lhs
index f24dee4..ae76bfd 100644
--- a/compiler/deSugar/DsMonad.lhs
+++ b/compiler/deSugar/DsMonad.lhs
@@ -38,7 +38,7 @@ import HsSyn		( HsExpr, HsMatchContext, Pat )
 import TcIface		( tcIfaceGlobal )
 import RdrName		( GlobalRdrEnv )
 import HscTypes		( TyThing(..), TypeEnv, HscEnv, 
-			  tyThingId, tyThingTyCon, tyThingDataCon, unQualInScope )
+			  tyThingId, tyThingTyCon, tyThingDataCon, mkPrintUnqualified )
 import Bag		( emptyBag, snocBag, Bag )
 import DataCon		( DataCon )
 import TyCon		( TyCon )
@@ -176,7 +176,7 @@ initDs hsc_env mod rdr_env type_env thing_inside
 	; return (res, mapBag mk_warn warns)
 	}
    where
-    print_unqual = unQualInScope rdr_env
+    print_unqual = mkPrintUnqualified rdr_env
 
     mk_warn :: (SrcSpan,SDoc) -> WarnMsg
     mk_warn (loc,sdoc) = mkWarnMsg loc print_unqual sdoc