[Swift-commit] r2765 - trunk/libexec

[noreply at svn.ci.uchicago.edu]

Author: hategan
Date: 2009-03-29 14:41:38 -0500 (Sun, 29 Mar 2009)
New Revision: 2765

Modified:
   trunk/libexec/vdl-int.k
Log:
tweaked provenance graph a bit

Modified: trunk/libexec/vdl-int.k
===================================================================
--- trunk/libexec/vdl-int.k	2009-03-29 19:39:42 UTC (rev 2764)
+++ trunk/libexec/vdl-int.k	2009-03-29 19:41:38 UTC (rev 2765)
@@ -276,15 +276,15 @@
 		element(graphStuff, [tr, stagein, stageout, err, optional(args)]
 			if(
 				vdl:configProperty("pgraph") != "false" then(
-					errprops := if(err ",color=lightsalmon" "")
+					errprops := if(err ",color=lightsalmon" ",color=lightsteelblue1")
 					tp := vdl:threadPrefix()
 					to(graph, 
-						concat(str:quote(tp), " [label=", str:quote("{tr}{errprops}"), "]")
+						concat(str:quote(tp), " [label=", str:quote(tr), "{errprops}]")
 					)
 					for(si, stagein
 						si := basename(si)
 						to(graph
-							concat(str:quote(si), " [shape=parallelogram{errprops}]")
+							concat(str:quote(si), " [shape=parallelogram]")
 							concat(str:quote(si), " -> ", str:quote(tp))
 						)
 					)
@@ -295,7 +295,7 @@
 						label := vdl:niceName(var, path = path)
 						to(graph
 							concat(str:quote(file), " [shape=parallelogram,label=", 
-								str:quote("{label}{errprops}"), "]")
+								str:quote(label), "]")
 							concat(str:quote(tp), " -> ", str:quote(file))
 						)
 					)