diff --git a/basis/furnace/actions/actions.factor b/basis/furnace/actions/actions.factor index 2a63489299..7505b3c612 100755 --- a/basis/furnace/actions/actions.factor +++ b/basis/furnace/actions/actions.factor @@ -79,7 +79,7 @@ TUPLE: action rest authorize init display validate submit ; : revalidate-url ( -- url/f ) revalidate-url-key param - dup [ >url [ same-host? ] keep and ] when ; + dup [ >url ensure-port [ same-host? ] keep and ] when ; : validation-failed ( -- * ) post-request? revalidate-url and [ diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor index e9b6a48634..c209fe222e 100644 --- a/extra/webapps/help/help.factor +++ b/extra/webapps/help/help.factor @@ -13,7 +13,7 @@ TUPLE: help-webapp < dispatcher ; [ { - { "search" [ 2 v-min-length 50 v-max-length v-one-line ] } + { "search" [ 1 v-min-length 50 v-max-length v-one-line ] } } validate-params help-dir set-current-directory diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor index 72eb483066..0af8eb31d7 100644 --- a/extra/websites/concatenative/concatenative.factor +++ b/extra/websites/concatenative/concatenative.factor @@ -77,10 +77,9 @@ SYMBOL: dh-file "password" key-password set-global common-configuration - "pastebin" add-responder - "planet" add-responder + "pastebin" add-responder + "planet" add-responder "/tmp/docs/" "docs" add-responder - main-responder set-global ;