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
No machines.
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