<download-release-action> ( -- action )


Vocabulary
webapps.mason.release

Inputs
None

Outputs
actionan object


Definition
USING: accessors furnace.actions html.forms kernel
mason.platform mason.report webapps.mason.backend
webapps.mason.utils ;

IN: webapps.mason.release

: <download-release-action> ( -- action )
<page-action> [
[
validate-os/cpu "os" value "cpu" value (platform)
"platform" set-value current-release [
[ release-link "release" set-value ]
[ release-git-id>> git-link "git-id" set-value ]
[ requirements "requirements" set-value ] tri
] when*
] with-mason-db
] >>init ;