diff --git a/extra/webapps/mason/docs-update/docs-update.factor b/extra/webapps/mason/docs-update/docs-update.factor index e7c0ecda9b..7ff2ba6d22 100644 --- a/extra/webapps/mason/docs-update/docs-update.factor +++ b/extra/webapps/mason/docs-update/docs-update.factor @@ -9,7 +9,7 @@ IN: webapps.mason.docs-update : update-docs ( -- ) home [ "newdocs" make-directory - "newdocs" [ { "tar" "xvf" "../docs.tar.gz" } try-process ] with-directory + "newdocs" [ { "tar" "xfz" "../docs.tar.gz" } try-process ] with-directory "docs" exists? [ "docs" "docs.old" move-file ] when "newdocs/docs" "docs" move-file diff --git a/extra/webapps/mason/status-update/status-update.factor b/extra/webapps/mason/status-update/status-update.factor index 2344218856..e19d40e197 100644 --- a/extra/webapps/mason/status-update/status-update.factor +++ b/extra/webapps/mason/status-update/status-update.factor @@ -56,7 +56,6 @@ IN: webapps.mason.status-update { "message" [ v-one-line ] } { "arg" [ [ v-one-line ] v-optional ] } { "report" [ ] } - { "secret" [ v-one-line ] } } validate-params validate-secret diff --git a/extra/webapps/mason/utils/utils.factor b/extra/webapps/mason/utils/utils.factor index e7c88eaec0..e450d33f1e 100644 --- a/extra/webapps/mason/utils/utils.factor +++ b/extra/webapps/mason/utils/utils.factor @@ -56,5 +56,6 @@ IN: webapps.mason.utils adjust-url ; : validate-secret ( -- ) + { { "secret" [ v-one-line ] } } validate-params "secret" value status-secret get = [ validation-failed ] unless ;