From: sof <unknown>
Date: Wed, 24 Mar 1999 18:21:21 +0000 (+0000)
Subject: [project @ 1999-03-24 18:21:21 by sof]
X-Git-Tag: Approximately_9120_patches~6355
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=55db5c327ad5931daecb84078c7abffb27bed1d8;p=ghc-hetmet.git

[project @ 1999-03-24 18:21:21 by sof]
In case the desugaring of a lit-lit should fail, give a more informative error msg
---

diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index 622b4ef..2b26091 100644
--- a/ghc/compiler/deSugar/DsExpr.lhs
+++ b/ghc/compiler/deSugar/DsExpr.lhs
@@ -184,7 +184,19 @@ dsExpr (HsLitOut (HsString str) _)
   = returnDs (mkLit (NoRepStr str stringTy))
 
 dsExpr (HsLitOut (HsLitLit str) ty)
-  = returnDs ( mkConApp data_con [mkLit (MachLitLit str prim_ty)] )
+  = case (maybeBoxedPrimType ty) of
+      Just (boxing_data_con, prim_ty) ->
+	    returnDs ( mkConApp boxing_data_con [mkLit (MachLitLit str prim_ty)] )
+      _ -> 
+	pprError "ERROR:"
+		 (vcat
+		   [ hcat [ text "Cannot see data constructor of ``literal-literal''s type: "
+		         , text "value:", quotes (quotes (ptext str))
+		         , text "; type: ", ppr ty
+		         ]
+		   , text "Try compiling with -fno-prune-tydecls."
+		   ])
+		  
   where
     (data_con, prim_ty)
       = case (maybeBoxedPrimType ty) of