X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcInstDcls.lhs;fp=ghc%2Fcompiler%2Ftypecheck%2FTcInstDcls.lhs;h=04fbafb5b199dbe25cdc7f8d321bfcb38723e390;hb=9d7da331989abcd1844e9d03b8d1e4163796fa85;hp=432d3c8caed2e0141b652be2ccd6ffea6df16354;hpb=2a2efb720c0fdc06fe749f96f284b00b30f8f3f7;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcInstDcls.lhs b/ghc/compiler/typecheck/TcInstDcls.lhs
index 432d3c8..04fbafb 100644
--- a/ghc/compiler/typecheck/TcInstDcls.lhs
+++ b/ghc/compiler/typecheck/TcInstDcls.lhs
@@ -35,7 +35,6 @@ import Var		( Id, idName, idType )
 import MkId		( mkDictFunId, rUNTIME_ERROR_ID )
 import FunDeps		( checkInstFDs )
 import Name		( Name, getSrcLoc )
-import UnicodeUtil	( stringToUtf8 )
 import Maybe		( catMaybes )
 import SrcLoc		( srcLocSpan, unLoc, noLoc, Located(..), srcSpanStart )
 import ListSetOps	( minusList )
@@ -405,7 +404,7 @@ tcInstDecl2 (InstInfo { iSpec = ispec, iBinds = binds })
 		-- Hardly beautiful, but only three extra lines.
 	    nlHsApp (noLoc $ TyApp (nlHsVar rUNTIME_ERROR_ID) 
 				   [idType this_dict_id])
-		  (nlHsLit (HsStringPrim (mkFastString (stringToUtf8 msg))))
+		  (nlHsLit (HsStringPrim (mkFastString msg)))
 
 	  | otherwise	-- The common case
 	  = mkHsConApp dict_constr inst_tys' (map HsVar scs_and_meths)