From 0aeb7aec1aa8f1286a954b0bbf2257a3ad86d060 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 8 Aug 2022 10:12:33 -0700
Subject: [PATCH] server: make babelmark endpoint accept GET.

---
 server/PandocServer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/server/PandocServer.hs b/server/PandocServer.hs
index 4d76f998d..ea770391a 100644
--- a/server/PandocServer.hs
+++ b/server/PandocServer.hs
@@ -48,7 +48,7 @@ type API =
   :<|>
   ReqBody '[JSON] [Params] :> Post '[JSON] [Text]
   :<|>
-  "babelmark" :> ReqBody '[JSON] Params :> Post '[JSON] Value
+  "babelmark" :> ReqBody '[JSON] Params :> Get '[JSON] Value
   :<|>
   "version" :> Get '[PlainText, JSON] Text