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

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