mason.report: put github link in build reports

diff --git a/extra/mason/report/report.factor b/extra/mason/report/report.factor
index f75b5ffbb7d7ab0fa08f84cf2576fa8b9849da15..5d0efc93282404b8565c1f01e948bf2c90ddba1a 100644 (file)
--- a/extra/mason/report/report.factor
+++ b/extra/mason/report/report.factor
@@ -7,12 +7,16 @@ prettyprint sequences xml.syntax xml.writer combinators.short-circuit
 literals splitting ;
 IN: mason.report
 
+: git-link ( id -- link )
+    [ "http://github.com/slavapestov/factor/commit/" prepend ] keep
+    [XML <a href=<->><-></a> XML] ;
+
 : common-report ( -- xml )
     target-os get
     target-cpu get
     short-host-name
     build-dir
-    current-git-id get
+    current-git-id get git-link
     [XML
     <h1>Build report for <->/<-></h1>
     <table>

diff --git a/extra/webapps/mason/mason.factor b/extra/webapps/mason/mason.factor
index 637ffa6dd81f700b664f1be56d608199393df214..42f15d28731cbe8fd0c9d707d4add87dffd910b0 100644 (file)
--- a/extra/webapps/mason/mason.factor
+++ b/extra/webapps/mason/mason.factor
@@ -83,10 +83,6 @@ CONSTANT: cpus
     [ validate-os/cpu ] >>init
     [ current-builder last-report>> "text/html" <content> ] >>display ;
 
-: git-link ( id -- link )
-    [ "http://github.com/slavapestov/factor/commit/" prepend ] keep
-    [XML <a href=<->><-></a> XML] ;
-
 : building ( builder string -- xml )
     swap current-git-id>> git-link
     [XML <-> for <-> XML] ;