optionalQueryParameter 400 error message

- return error message for 400 response error
scarf-sh · Mar 1, 2024 · 5e1e3ab · 5e1e3ab
1 parent 1497291
commit 5e1e3ab
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Request.template.hs b/Request.template.hs
@@ -218,11 +218,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
       | allowEmpty ->
           withParam Nothing request respond
       | otherwise ->
-          respond (Wai.responseBuilder (toEnum 400) [] mempty)
+          respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
     Just (Just value) ->
       case parseQueryParam (Text.decodeUtf8 value) of
         Left _err ->
-          respond (Wai.responseBuilder (toEnum 400) [] mempty)
+          respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
         Right x ->
           withParam (Just x) request respond
 {-# INLINEABLE optionalQueryParameter #-}