make sure it's a post

src/page-wiki.rkt

@@ -96,17 +96,20 @@
              (easy:response-body dest-res)))]))
 
 (define (page-wiki-with-data req)
-  (define post-data/bytes (request-post-data/raw req))
+  (response-handler
-  (define post-data/string (bytes->string/utf-8 post-data/bytes))
+   (define post-data/bytes (request-post-data/raw req))
-  (define post-data (string->jsexpr post-data/string))
+   (when (not post-data/bytes)
-  (define wikiname (jp "/wikiname" post-data))
+     (raise-user-error 'page-wiki-with-data "POST requests only, please."))
-  (define path (jp "/path" post-data))
+   (define post-data/string (bytes->string/utf-8 post-data/bytes))
-  (take-json-rewrite-and-return-page
+   (define post-data (string->jsexpr post-data/string))
-   #:req req
+   (define wikiname (jp "/wikiname" post-data))
-   #:wikiname wikiname
+   (define path (jp "/path" post-data))
-   #:source-url (format "https://~a.fandom.com/wiki/~a" wikiname path)
+   (take-json-rewrite-and-return-page
-   #:data (jp "/data" post-data)
+    #:req req
-   #:siteinfo (data->siteinfo (jp "/siteinfo" post-data))))
+    #:wikiname wikiname
+    #:source-url (format "https://~a.fandom.com/wiki/~a" wikiname path)
+    #:data (jp "/data" post-data)
+    #:siteinfo (data->siteinfo (jp "/siteinfo" post-data)))))
 
 (define (take-json-rewrite-and-return-page #:req req #:wikiname wikiname #:source-url source-url #:data data #:siteinfo siteinfo)
   (define title (jp "/parse/title" data ""))