From: Ian Lynagh <igloo@earth.li>
Date: Sun, 8 Aug 2010 19:33:40 +0000 (+0000)
Subject: Make another parse error more informative
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=5e4375adca19f66803c3ad47fb1ba2c2ac6b4b62

Make another parse error more informative
---

diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs
index 4c1da58..90220d3 100644
--- a/compiler/parser/RdrHsSyn.lhs
+++ b/compiler/parser/RdrHsSyn.lhs
@@ -362,7 +362,7 @@ splitCon ty
    split (L _ (HsAppTy t u)) ts = split t (u : ts)
    split (L l (HsTyVar tc))  ts = do data_con <- tyConToDataCon l tc
  				     return (data_con, mk_rest ts)
-   split (L l _) _ 	        = parseError l "parse error in data/newtype declaration"
+   split (L l _) _ 	        = parseErrorSDoc l (text "parse error in constructor in data/newtype declaration:" <+> ppr ty)
 
    mk_rest [L _ (HsRecTy flds)] = RecCon flds
    mk_rest ts                   = PrefixCon ts