From 7668f220dd94cf11a275989e324d7d3ab6ab96fd Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 26 May 1997 04:50:07 +0000
Subject: [PATCH] [project @ 1997-05-26 04:50:07 by sof] Updated
 imports;improved ppr

---
 ghc/compiler/deSugar/DsCCall.lhs |    8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index 3badf97..a57a3a2 100644
--- a/ghc/compiler/deSugar/DsCCall.lhs
+++ b/ghc/compiler/deSugar/DsCCall.lhs
@@ -10,6 +10,7 @@ module DsCCall ( dsCCall ) where
 
 IMP_Ubiq()
 
+import CmdLineOpts (opt_PprUserLength)
 import CoreSyn
 
 import DsMonad
@@ -18,7 +19,7 @@ import DsUtils
 import CoreUtils	( coreExprType )
 import Id		( dataConArgTys )
 import Maybes		( maybeToBool )
-import PprStyle		( PprStyle(..) )
+import Outputable	( PprStyle(..), Outputable(..) )
 import PprType		( GenType{-instances-} )
 import Pretty
 import PrelVals		( packStringForCId )
@@ -32,9 +33,6 @@ import TysWiredIn	( getStatePairingConInfo,
 			  stringTy
 			)
 import Util		( pprPanic, pprError, panic )
-#if __GLASGOW_HASKELL__ >= 202
-import Outputable       ( Outputable(..) )
-#endif
 
 \end{code}
 
@@ -176,7 +174,7 @@ unboxArg arg
 
 can't_see_datacons_error thing ty
   = pprError "ERROR: Can't see the data constructor(s) for _ccall_/_casm_ "
-	     (hcat [text thing, text "; type: ", ppr PprForUser ty])
+	     (hcat [text thing, text "; type: ", ppr (PprForUser opt_PprUserLength) ty])
 \end{code}
 
 
-- 
1.7.10.4