diff options
Diffstat (limited to 'src/server/Json.hs')
| -rw-r--r-- | src/server/Json.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/server/Json.hs b/src/server/Json.hs index bd5ac3e..935a9cb 100644 --- a/src/server/Json.hs +++ b/src/server/Json.hs @@ -1,8 +1,7 @@ {-# LANGUAGE OverloadedStrings #-} module Json - ( jsonError - , jsonObject + ( jsonObject ) where import Web.Scotty @@ -13,10 +12,5 @@ import qualified Data.Aeson.Types as Json import qualified Data.HashMap.Strict as M import Data.Text (Text) -jsonError :: Text -> ActionM () -jsonError msg = do - status badRequest400 - jsonObject [("error", Json.String msg)] - jsonObject :: [(Text, Json.Value)] -> ActionM () jsonObject = json . Json.Object . M.fromList |