webapps.pastebin: Fix the url

diff --git a/extra/webapps/pastebin/pastebin.factor b/extra/webapps/pastebin/pastebin.factor
index e1326ee015714a536f87f98db665e659de6ecaf1..5bee59895e768fe048fe0a744f64ca649b70b254 100644 (file)
--- a/extra/webapps/pastebin/pastebin.factor
+++ b/extra/webapps/pastebin/pastebin.factor
@@ -4,7 +4,8 @@ USING: accessors calendar db db.tuples db.types furnace.actions
 furnace.auth furnace.boilerplate furnace.recaptcha
 furnace.redirection furnace.syndication html.forms
 http.server.dispatchers http.server.responses kernel math.parser
-namespaces sequences smtp sorting urls validators xmode.catalog ;
+namespaces present sequences smtp sorting urls validators
+xmode.catalog ;
 IN: webapps.pastebin
 
 TUPLE: pastebin < dispatcher ;
@@ -156,6 +157,11 @@ M: annotation entity-url
     pastebin-email-list get-global [
         drop
     ] [
+        clone
+            "https" >>protocol
+            "paste.factorcode.org" >>host
+            [ "$pastebin" ?head drop ] change-path
+        present
         <email> swap >>to
         swap >>body
         "factor-builds2@gmail.com" >>from