extra/webapps/mason/make-release/make-release.factor

   1 ! Copyright (C) 2010 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors furnace.actions html.forms
   4 http.server.responses validators webapps.mason.backend
   5 webapps.mason.version ;
   6 IN: webapps.mason.make-release
   7
   8 : <make-release-action> ( -- action )
   9     <action>
  10     [
  11         {
  12             { "version" [ v-one-line ] }
  13             { "announcement-url" [ v-url ] }
  14         } validate-params
  15     ] >>validate
  16     [
  17         [
  18             "version" value "announcement-url" value do-release
  19             "OK" <text-content>
  20         ] with-mason-db
  21     ] >>submit ;