[project @ 1997-08-25 21:38:12 by sof]

Improved error message

diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index 345fe9b..15758da 100644 (file)
--- a/ghc/compiler/deSugar/DsCCall.lhs
+++ b/ghc/compiler/deSugar/DsCCall.lhs
@@ -173,16 +173,16 @@ unboxArg arg
     Just (arg2_tycon,_) = maybe_arg2_tycon
 
 can't_see_datacons_error thing ty
-  = pprError "ERROR: Can't see the data constructor(s) for _ccall_/_casm_ (try compiling with -fno-prune-tydecls ..)"
-            (hcat [text thing, text "; type: ", ppr (PprForUser opt_PprUserLength) ty])
+  = pprError "ERROR: Can't see the data constructor(s) for _ccall_/_casm_ "
+            (hcat [text thing, text "; type: ", ppr (PprForUser opt_PprUserLength) ty, text "(try compiling with -fno-prune-tydecls ..)\n"])
 \end{code}
 
 
 \begin{code}
-boxResult :: Type                              -- Type of desired result
+boxResult :: Type                      -- Type of desired result
          -> DsM (Type,                 -- Type of the result of the ccall itself
                  CoreExpr -> CoreExpr) -- Wrapper for the ccall
-                                                       -- to box the result
+                                       -- to box the result
 boxResult result_ty
   | null data_cons
   -- oops! can't see the data constructors