From: sof <unknown>
Date: Mon, 25 Aug 1997 21:38:12 +0000 (+0000)
Subject: [project @ 1997-08-25 21:38:12 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~128
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=39956e2bc3a790246a7fa294f96e4a4de0755c8a;p=ghc-hetmet.git

[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
--- 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