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

Fix webapps.pastebin redirection

db4
Slava Pestov 2009-03-15 20:05:59 -05:00
parent 54e824ffe4
commit 311487e5e7
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/webapps/pastebin/pastebin.factor
View File

@ -83,8 +83,7 @@ annotation "ANNOTATIONS"
! LINKS, ETC ! LINKS, ETC
! ! ! ! ! !
: pastebin-url ( -- url ) CONSTANT: pastebin-url URL" $pastebin/"
URL" $pastebin/list" ;
: paste-url ( id -- url ) : paste-url ( id -- url )
"$pastebin/paste" >url swap "id" set-query-param ; "$pastebin/paste" >url swap "id" set-query-param ;
@ -187,7 +186,7 @@ M: annotation entity-url
"id" value <paste> delete-tuples "id" value <paste> delete-tuples
"id" value f <annotation> delete-tuples "id" value f <annotation> delete-tuples
] with-transaction ] with-transaction
URL" $pastebin/list" <redirect> pastebin-url <redirect>
] >>submit ] >>submit
<protected> <protected>