From d38f1c1f16b9f26aa45ced718a2c30d7f39a23e2 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Tue, 2 Aug 2016 21:08:23 -0400
Subject: [PATCH] /jsonp/package/modify-all -> /api/package/modify-all

---
 src/site.rkt | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/src/site.rkt b/src/site.rkt
index 7876495..a93bddd 100644
--- a/src/site.rkt
+++ b/src/site.rkt
@@ -1187,18 +1187,14 @@
   (and (or (equal? old-name name)
            ;; Don't let renames stomp on existing packages
            (not (package-detail (string->symbol name))))
-       (jsonp-rpc! "/jsonp/package/modify-all"
-                   '()
-                   #:post-data
-                   (string->bytes/utf-8
-                    (jsexpr->string
-                     (hash 'pkg old-name
-                           'name name
-                           'description description
-                           'source source
-                           'tags tags
-                           'authors authors
-                           'versions versions))))
+       (eq? #t (simple-json-rpc! "/api/package/modify-all"
+                                 (hash 'pkg old-name
+                                       'name name
+                                       'description description
+                                       'source source
+                                       'tags tags
+                                       'authors authors
+                                       'versions versions)))
        (let* ((new-pkg (or old-pkg (hash)))
               (new-pkg (hash-set new-pkg 'name name))
               (new-pkg (hash-set new-pkg 'description description))