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

View File

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