steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Tweaks

db4
Slava Pestov 2008-09-29 22:33:06 -05:00
parent 90eaffe40c
commit 4b219373a5
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/furnace/actions/actions.factor
View File

@ -79,7 +79,7 @@ TUPLE: action rest authorize init display validate submit ;
: revalidate-url ( -- url/f ) : revalidate-url ( -- url/f )
revalidate-url-key param revalidate-url-key param
dup [ >url [ same-host? ] keep and ] when ; dup [ >url ensure-port [ same-host? ] keep and ] when ;
: validation-failed ( -- * ) : validation-failed ( -- * )
post-request? revalidate-url and [ post-request? revalidate-url and [

2
extra/webapps/help/help.factor
View File

@ -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 } validate-params
help-dir set-current-directory help-dir set-current-directory

5
extra/websites/concatenative/concatenative.factor
View File

@ -77,10 +77,9 @@ SYMBOL: dh-file
"password" key-password set-global "password" key-password set-global
common-configuration common-configuration
<factor-website> <factor-website>
<pastebin> "pastebin" add-responder <pastebin> <factor-boilerplate> "pastebin" add-responder
<planet> "planet" add-responder <planet> <factor-boilerplate> "planet" add-responder
"/tmp/docs/" <help-webapp> "docs" add-responder "/tmp/docs/" <help-webapp> "docs" add-responder
<factor-boilerplate>
<configuration> <configuration>
main-responder set-global ; main-responder set-global ;