aboutsummaryrefslogtreecommitdiff
path: root/server/src/Controller/Helper.hs
diff options
context:
space:
mode:
authorJoris2021-01-03 13:40:40 +0100
committerJoris2021-01-03 13:54:20 +0100
commit11052951b74b9ad4b6a9412ae490086235f9154b (patch)
tree64526ac926c1bf470ea113f6cac8a33158684e8d /server/src/Controller/Helper.hs
parent371449b0e312a03162b78797b83dee9d81706669 (diff)
downloadbudget-11052951b74b9ad4b6a9412ae490086235f9154b.tar.gz
budget-11052951b74b9ad4b6a9412ae490086235f9154b.tar.bz2
budget-11052951b74b9ad4b6a9412ae490086235f9154b.zip
Rewrite in Rust
Diffstat (limited to 'server/src/Controller/Helper.hs')
-rw-r--r--server/src/Controller/Helper.hs16
1 files changed, 0 insertions, 16 deletions
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