[project @ 1999-06-17 09:51:16 by simonmar]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsCCall.lhs

diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index 08fa624..84631e3 100644 (file)
--- a/ghc/compiler/deSugar/DsCCall.lhs
+++ b/ghc/compiler/deSugar/DsCCall.lhs
@@ -35,7 +35,7 @@ import Type           ( isUnLiftedType, splitAlgTyConApp_maybe, mkFunTys,
 import TysPrim         ( byteArrayPrimTy, realWorldStatePrimTy,
                          byteArrayPrimTyCon, mutableByteArrayPrimTyCon )
 import TysWiredIn      ( unitDataCon, stringTy,
-                         mkUnboxedTupleTy, unboxedPairDataCon,
+                         unboxedPairDataCon,
                          mkUnboxedTupleTy, unboxedTupleCon
                        )
 import Outputable
@@ -180,9 +180,10 @@ unboxArg arg
     Just (arg2_tycon,_) = maybe_arg2_tycon
 
 can'tSeeDataConsPanic thing ty
-  = pprPanic "ERROR: Can't see the data constructor(s) for _ccall_/_casm_/foreign declaration"
-            (hcat [text thing, text "; type: ", ppr ty, text "(try compiling with -fno-prune-tydecls ..)\n"])
-
+  = pprPanic
+     "ERROR: Can't see the data constructor(s) for _ccall_/_casm_/foreign declaration"
+     (hcat [ text thing, text "; type: ", ppr ty
+           , text "(try compiling with -fno-prune-tydecls ..)\n"])
 \end{code}