steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

mason: some fixes

db4
Slava Pestov 2009-04-25 16:52:23 -05:00
parent 22d14b036a
commit f24bf51289
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/mason/notify/notify.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays accessors io io.sockets io.encodings.utf8 io.files USING: arrays accessors io io.sockets io.encodings.utf8 io.files
io.launcher kernel make mason.config mason.common mason.email io.launcher kernel make mason.config mason.common mason.email
mason.twitter namespaces sequences ; mason.twitter namespaces sequences prettyprint ;
IN: mason.notify IN: mason.notify
: status-notify ( input-file args -- ) : status-notify ( input-file args -- )
@ -38,7 +38,7 @@ IN: mason.notify
f { "test" } status-notify ; f { "test" } status-notify ;
: notify-report ( status -- ) : notify-report ( status -- )
[ "Build finished with status: " write print flush ] [ "Build finished with status: " write . flush ]
[ [
[ "report" utf8 file-contents ] dip email-report [ "report" utf8 file-contents ] dip email-report
"report" { "report" } status-notify "report" { "report" } status-notify

2
extra/mason/report/report.factor
View File

@ -28,7 +28,7 @@ IN: mason.report
common-report common-report
_ call( -- xml ) _ call( -- xml )
[XML <html><body><-><-></body></html> XML] [XML <html><body><-><-></body></html> XML]
pprint-xml write-xml
] with-file-writer ; inline ] with-file-writer ; inline
:: failed-report ( error file what -- status ) :: failed-report ( error file what -- status )