server /babelmark - make text a required param.

1 files changed, 2 insertions, 2 deletions

diff --git a/server/PandocServer.hs b/server/PandocServer.hs
index 9cdc93962..c89502b51 100644
--- a/server/PandocServer.hs
+++ b/server/PandocServer.hs
@@ -48,7 +48,7 @@ type API =
   :<|>
   "batch" :> ReqBody '[JSON] [Params] :> Post '[JSON] [Text]
   :<|>
-  "babelmark" :> QueryParam "text" Text :> QueryParam "from" Text :> QueryParam "to" Text :> QueryFlag "standalone" :> Get '[JSON] Value
+  "babelmark" :> QueryParam' '[Required] "text" Text :> QueryParam "from" Text :> QueryParam "to" Text :> QueryFlag "standalone" :> Get '[JSON] Value
   :<|>
   "version" :> Get '[PlainText, JSON] Text
 
@@ -65,7 +65,7 @@ server = convert
     :<|> pure pandocVersion
  where
   babelmark text' from' to' standalone' = do
-    res <- convert Params{ text = fromMaybe mempty text',
+    res <- convert Params{ text = text',
                            from = from', to = to',
                            standalone = Just standalone', wrapText = Nothing,
                            columns = Nothing, template = Nothing }