webapps.mason: link crashed and broken to latest build reports. Fixes #274.

diff --git a/extra/webapps/mason/dashboard/dashboard.factor b/extra/webapps/mason/dashboard/dashboard.factor
index e8f97771dd76b689803e5209da44343c9b6de719..3e40af9839e99e09e46976411b7ad443edb8ac8f 100644 (file)
--- a/extra/webapps/mason/dashboard/dashboard.factor
+++ b/extra/webapps/mason/dashboard/dashboard.factor
@@ -6,7 +6,7 @@ IN: webapps.mason.downloads
 
 : builder-list ( seq -- xml )
     [
-        [ package-url ] [ os/cpu ] bi
+        [ report-url ] [ os/cpu ] bi
         [XML <li><a href=<->><-></a></li> XML]
     ] map
     [ [XML <p>No machines.</p> XML] ]

diff --git a/extra/webapps/mason/utils/utils.factor b/extra/webapps/mason/utils/utils.factor
index 5fa60c6fa08fc5a87964d4fd61664387a313823d..4224b0e6513339a1f9a037208b122e3ccfb5cefa 100644 (file)
--- a/extra/webapps/mason/utils/utils.factor
+++ b/extra/webapps/mason/utils/utils.factor
@@ -40,17 +40,22 @@ IN: webapps.mason.utils
 : download-url ( string -- string' )
     "http://downloads.factorcode.org/" prepend ;
 
-: package-url ( builder -- url )
-    [ URL" http://builds.factorcode.org/package" ] dip
+: platform-url ( url builder -- url )
     [ os>> "os" set-query-param ]
     [ cpu>> "cpu" set-query-param ] bi
     adjust-url ;
 
+: package-url ( builder -- url )
+    [ URL" http://builds.factorcode.org/package" ] dip
+    platform-url ;
+
+: report-url ( builder -- url )
+    [ URL" http://builds.factorcode.org/report" ] dip
+    platform-url ;
+
 : release-url ( builder -- url )
     [ URL" http://builds.factorcode.org/release" ] dip
-    [ os>> "os" set-query-param ]
-    [ cpu>> "cpu" set-query-param ] bi
-    adjust-url ;
+    platform-url ;
 
 : validate-secret ( -- )
     { { "secret" [ v-one-line ] } } validate-params