From: simonpj@microsoft.com <unknown>
Date: Fri, 6 Oct 2006 07:20:02 +0000 (+0000)
Subject: Improve error message
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d1038275d0c9664b63fd7745189cb65ae87bcebc

Improve error message
---

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index b71776b..73cfb83 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -574,8 +574,9 @@ checkHiBootIface
 missingBootThing thing
   = ppr thing <+> ptext SLIT("is defined in the hs-boot file, but not in the module")
 bootMisMatch thing boot_decl real_decl
-  = ppr thing <+> ptext SLIT("has conflicting definitions in the module and its hs-boot file")
-    $+$ (ppr boot_decl) $+$ (ppr real_decl)
+  = vcat [ppr thing <+> ptext SLIT("has conflicting definitions in the module and its hs-boot file"),
+	  ptext SLIT("Decl") <+> ppr real_decl,
+	  ptext SLIT("Boot file:") <+> ppr boot_decl]
 instMisMatch inst
   = hang (ppr inst)
        2 (ptext SLIT("is defined in the hs-boot file, but not in the module"))