From 316bda10c6bec8b5ccc9e23f1f677c076205f046 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 8 Dec 2019 11:39:37 +0100
Subject: Add category page

---
 server/src/Controller/Helper.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'server/src/Controller/Helper.hs')

diff --git a/server/src/Controller/Helper.hs b/server/src/Controller/Helper.hs
index fd0d2bb..dc9cbc4 100644
--- a/server/src/Controller/Helper.hs
+++ b/server/src/Controller/Helper.hs
@@ -1,17 +1,16 @@
 module Controller.Helper
-  ( jsonOrBadRequest
+  ( okOrBadRequest
   ) where
 
-import           Data.Aeson                (ToJSON)
 import           Data.Text                 (Text)
 import qualified Data.Text.Lazy            as LT
 import qualified Network.HTTP.Types.Status as Status
 import           Web.Scotty                (ActionM)
 import qualified Web.Scotty                as S
 
-jsonOrBadRequest :: forall a. (ToJSON a) => Either Text a -> ActionM ()
-jsonOrBadRequest (Left message) = do
+okOrBadRequest :: Either Text () -> ActionM ()
+okOrBadRequest (Left message) = do
   S.status Status.badRequest400
   S.text (LT.fromStrict message)
-jsonOrBadRequest (Right a) =
-  S.json a
+okOrBadRequest (Right ()) =
+  S.status Status.ok200
-- 
cgit v1.2.3