Added a bit of extra help when a name is not found (suggesting other names)

2009-04-02 15:42:02 +00:00 · 2009-04-02 15:42:02 +00:00 · 9e3e71c70a
commit 9e3e71c70a
parent f69030df34
1 changed files with 1 additions and 0 deletions
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@ -396,6 +396,7 @@ findName thisN thisNT
          (origN, origNT) <-
            case lookup (A.nameName thisN) (csLocalNames st) of
              Nothing -> dieP (A.nameMeta thisN) $ "name " ++ A.nameName thisN ++ " not defined"
+                ++ "; possibilities were: " ++ show (map fst (csLocalNames st))
              Just def -> return def
          if thisNT /= origNT
            then dieP (A.nameMeta thisN) $ "expected " ++ show thisNT ++ " (" ++ A.nameName origN ++ " is " ++ show origNT ++ ")"