From 8b724d9657dd972ed6c8e6036419dd43676a473f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 18 Oct 2011 11:57:03 -0700
Subject: [PATCH] webapps.mason: link crashed and broken to latest build
 reports.  Fixes #274.

---
 extra/webapps/mason/dashboard/dashboard.factor |  2 +-
 extra/webapps/mason/utils/utils.factor         | 15 ++++++++++-----
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/extra/webapps/mason/dashboard/dashboard.factor b/extra/webapps/mason/dashboard/dashboard.factor
index e8f97771dd..3e40af9839 100644
--- 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 5fa60c6fa0..4224b0e651 100644
--- 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