From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 server/src/Controller/Helper.hs | 16 ----------------
 1 file changed, 16 deletions(-)
 delete mode 100644 server/src/Controller/Helper.hs

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

diff --git a/server/src/Controller/Helper.hs b/server/src/Controller/Helper.hs
deleted file mode 100644
index dc9cbc4..0000000
--- a/server/src/Controller/Helper.hs
+++ /dev/null
@@ -1,16 +0,0 @@
-module Controller.Helper
-  ( okOrBadRequest
-  ) where
-
-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
-
-okOrBadRequest :: Either Text () -> ActionM ()
-okOrBadRequest (Left message) = do
-  S.status Status.badRequest400
-  S.text (LT.fromStrict message)
-okOrBadRequest (Right ()) =
-  S.status Status.ok200
-- 
cgit v1.2.3