unknownNameSuggestErr: don't panic if we find Ids with UnhelpfulSrcSpans
authorSimon Marlow <marlowsd@gmail.com>
Wed, 2 Nov 2011 08:41:08 +0000 (08:41 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 2 Nov 2011 16:34:06 +0000 (16:34 +0000)
This happens with the Ids generated by the GHCi debugger for heap
values (_t1, _t2 etc.).

compiler/rename/RnEnv.lhs

index bcc7d65..261d65a 100644 (file)
@@ -1152,12 +1152,10 @@ unknownNameSuggestErr where_look tried_rdr_name
        ; return extra_err }
   where
     pp_item :: (RdrName, HowInScope) -> SDoc
-    pp_item (rdr, Left loc) = quotes (ppr rdr) <+>   -- Locally defined
-                              parens (ptext (sLit "line") <+> int (srcSpanStartLine loc'))
+    pp_item (rdr, Left loc) = quotes (ppr rdr) <+> loc' -- Locally defined
         where loc' = case loc of
-                     UnhelpfulSpan _ ->
-                         panic "unknownNameSuggestErr UnhelpfulSpan"
-                     RealSrcSpan l -> l
+                     UnhelpfulSpan l -> parens (ppr l)
+                     RealSrcSpan l -> parens (ptext (sLit "line") <+> int (srcSpanStartLine l))
     pp_item (rdr, Right is) = quotes (ppr rdr) <+>   -- Imported
                               parens (ptext (sLit "imported from") <+> ppr (is_mod is))