From 6f76f6385e8a8d4d1e44c5415ce44a4b1f54b1b9 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sun, 23 Mar 2008 00:07:48 +0000
Subject: [PATCH] Added to an error message in Types to help determine the
 problem

---
 common/Types.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/common/Types.hs b/common/Types.hs
index 52152e1..65ca201 100644
--- a/common/Types.hs
+++ b/common/Types.hs
@@ -48,6 +48,7 @@ import EvalLiterals
 import Intrinsics
 import Metadata
 import Pass
+import PrettyShow
 import ShowCode
 import TypeSizes
 import Utils
@@ -69,7 +70,8 @@ typeOfName n
           t <- typeOfSpec st
           case t of
             Just t' -> return t'
-            Nothing -> dieP (findMeta n) $ "cannot type name " ++ show st
+            Nothing -> dieP (findMeta n) $ "cannot type name " ++ pshow n ++
+              ":" ++ show st
 
 typeOfSpec :: (CSMR m, Die m) => A.SpecType -> m (Maybe A.Type)
 typeOfSpec st