[Swift-commit] r6012 - trunk/libexec

hategan at ci.uchicago.edu hategan at ci.uchicago.edu
Fri Nov 9 23:17:38 CST 2012


Author: hategan
Date: 2012-11-09 23:17:38 -0600 (Fri, 09 Nov 2012)
New Revision: 6012

Modified:
   trunk/libexec/vdl-int-staging.k
   trunk/libexec/vdl-int.k
Log:
nice app exceptions

Modified: trunk/libexec/vdl-int-staging.k
===================================================================
--- trunk/libexec/vdl-int-staging.k	2012-11-10 05:15:21 UTC (rev 6011)
+++ trunk/libexec/vdl-int-staging.k	2012-11-10 05:17:38 UTC (rev 6012)
@@ -180,10 +180,9 @@
 							exception(
 								concat(
 									"Exception in {tr}:", nl(),
-									maybe("Arguments: {arguments}", nl()),
-									"Host: {rhost}", nl(),
-									"Directory: {tmpdir}", nl(),
-									"- - -", nl()
+									maybe("    Arguments: {arguments}", nl()),
+									"    Host: {rhost}", nl(),
+									"    Directory: {tmpdir}", nl(),
 								)
 								exception
 							)

Modified: trunk/libexec/vdl-int.k
===================================================================
--- trunk/libexec/vdl-int.k	2012-11-10 05:15:21 UTC (rev 6011)
+++ trunk/libexec/vdl-int.k	2012-11-10 05:17:38 UTC (rev 6012)
@@ -368,16 +368,15 @@
 				for(f, list(list("stderr.txt", stderr), list("stdout.txt", stdout))
 					[name, file] := each(f)
 					destfile := "{jobid}-{file}"
-					nl()
-					"{name}: "
 					try(
 						sequential(
 							task:transfer(srchost=rhost, srcdir=tmpdir, srcfile=file,
 								destfile=destfile)
-
+							nl()
+							"    {name}: "
 							file:read(destfile)
 						)
-						nl()
+						""
 					)
 					maybe(file:remove(destfile))
 				)
@@ -599,11 +598,10 @@
 							exception(
 								concat(
 									"Exception in {tr}:", nl(),
-									maybe("Arguments: ", arguments, nl()),
-									"Host: {rhost}", nl(),
-									"Directory: {tmpdir}",
-									"{outs}", nl(),
-									"----", nl(),
+									maybe("    Arguments: ", arguments, nl()),
+									"    Host: {rhost}", nl(),
+									"    Directory: {tmpdir}",
+									"{outs}",
 									kickstartRec
 								)
 								exception




More information about the Swift-commit mailing list