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

Make sure URLs are cloned before using set-query-param on them

char-rename
Alexander Iljin 2016-12-13 18:31:02 +03:00 committed by John Benediktsson
parent 2c38f2e3e3
commit 2dbc57a120
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/google/search/search.factor
View File

@ -10,7 +10,7 @@ IN: google.search
<PRIVATE <PRIVATE
: search-url ( query -- url ) : search-url ( query -- url )
URL" http://ajax.googleapis.com/ajax/services/search/web" URL" http://ajax.googleapis.com/ajax/services/search/web" clone
"1.0" "v" set-query-param "1.0" "v" set-query-param
swap "q" set-query-param swap "q" set-query-param
"8" "rsz" set-query-param "8" "rsz" set-query-param

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

@ -22,7 +22,7 @@ TUPLE: calculator < dispatcher ;
{ "y" [ v-number ] } { "y" [ v-number ] }
} validate-params } validate-params
URL" $calculator" "x" value "y" value + "z" set-query-param URL" $calculator" clone "x" value "y" value + "z" set-query-param
<redirect> <redirect>
] >>submit ; ] >>submit ;

2
extra/webapps/mason/report/report.factor
View File

@ -17,7 +17,7 @@ IN: webapps.mason.report
[ build-report ] >>display ; [ build-report ] >>display ;
: report-link ( builder -- xml ) : report-link ( builder -- xml )
[ URL" report" ] dip [ URL" report" clone ] dip
[ os>> "os" set-query-param ] [ os>> "os" set-query-param ]
[ cpu>> "cpu" set-query-param ] bi [ cpu>> "cpu" set-query-param ] bi
[XML <a href=<->>Latest build report</a> XML] ; [XML <a href=<->>Latest build report</a> XML] ;

6
extra/webapps/mason/utils/utils.factor
View File

@ -46,15 +46,15 @@ IN: webapps.mason.utils
adjust-url ; adjust-url ;
: package-url ( builder -- url ) : package-url ( builder -- url )
[ URL" http://builds.factorcode.org/package" ] dip [ URL" http://builds.factorcode.org/package" clone ] dip
platform-url ; platform-url ;
: report-url ( builder -- url ) : report-url ( builder -- url )
[ URL" http://builds.factorcode.org/report" ] dip [ URL" http://builds.factorcode.org/report" clone ] dip
platform-url ; platform-url ;
: release-url ( builder -- url ) : release-url ( builder -- url )
[ URL" http://builds.factorcode.org/release" ] dip [ URL" http://builds.factorcode.org/release" clone ] dip
platform-url ; platform-url ;
: validate-secret ( -- ) : validate-secret ( -- )