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 3badf9792208..a57a3a28bdc0 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}
--
GitLab