X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FdeSugar%2FDsCCall.lhs;h=b54e111991732992fbcb906ac546318fb1b39fdf;hb=7d61cb61daa5e433a0cb85b34b7f0c58b2f961ff;hp=f2eb50bc1e7717e5716df5c051417eb66bd7965c;hpb=b8875f2f7f596482228645b9751f8f9c592a84c5;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index f2eb50b..b54e111 100644
--- a/ghc/compiler/deSugar/DsCCall.lhs
+++ b/ghc/compiler/deSugar/DsCCall.lhs
@@ -19,7 +19,7 @@ import CoreUtils	( coreExprType )
 import Id		( getInstantiatedDataConSig, mkTupleCon )
 import Maybes		( maybeToBool )
 import PprStyle		( PprStyle(..) )
-import PprType		( GenType{-instances-}, GenTyVar{-instance-} )
+import PprType		( GenType{-instances-} )
 import PrelInfo		( byteArrayPrimTy, getStatePairingConInfo,
 		          packStringForCId, realWorldStatePrimTy,
 			  realWorldStateTy, realWorldTy, stateDataCon,
@@ -27,9 +27,7 @@ import PrelInfo		( byteArrayPrimTy, getStatePairingConInfo,
 import Pretty
 import PrimOp		( PrimOp(..) )
 import Type		( isPrimType, maybeAppDataTyCon, eqTy )
-import TyVar		( GenTyVar{-instance-} )
-import Unique		( Unique{-instances-} )
-import Util		( pprPanic, panic )
+import Util		( pprPanic, pprError, panic )
 
 maybeBoxedPrimType = panic "DsCCall.maybeBoxedPrimType"
 \end{code}
@@ -198,7 +196,8 @@ we decide what's happening with enumerations. ADR
     (data_con_arg_ty1 : data_con_arg_ty2 : _) = data_con_arg_tys
 
 can't_see_datacons_error thing ty
-  = error (ppShow 100 (ppBesides [ppStr "ERROR: Can't see the data constructor(s) for _ccall_/_casm_ ", ppStr thing, ppStr "; type: ", ppr PprForUser ty]))
+  = pprError "ERROR: Can't see the data constructor(s) for _ccall_/_casm_ "
+	     (ppBesides [ppStr thing, ppStr "; type: ", ppr PprForUser ty])
 \end{code}