From 142926172d813136680f4fc76aebab2a8fd99d64 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Fri, 21 Mar 2008 14:51:54 +0000
Subject: [PATCH] Fixed the error message given when there is a problem with
 the pass dependency graph

---
 pass/PassList.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pass/PassList.hs b/pass/PassList.hs
index 211a104..5f369fd 100644
--- a/pass/PassList.hs
+++ b/pass/PassList.hs
@@ -135,7 +135,7 @@ buildGraph runProps passes
         check (prop, (post, pre))
           = do when (Set.null post && not (Set.null pre)) $
                  throwError $ "Property in dependency graph is required by a pass but not provided by any: "
-                   ++ show (map passName $ Set.toList pre)
+                   ++ show (propName prop)
                return (prop, (post, pre)) --TODO this is an identity transformation, so just check separately
                
     checkGraph :: Either String ()