From ddbbd02dc816c076faaa9141b3aa4853da83749f Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 14 Aug 2022 19:30:44 +0200
Subject: control room: translations & form input

still basic, but works pretty well overall
---
 lib/Server/Util.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'lib/Server/Util.hs')

diff --git a/lib/Server/Util.hs b/lib/Server/Util.hs
index 1c62663..a7a358e 100644
--- a/lib/Server/Util.hs
+++ b/lib/Server/Util.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE FlexibleContexts #-}
 
 -- | mostly the monad the service runs in
-module Server.Util (Service, ServiceM, runService, redirect) where
+module Server.Util (Service, ServiceM, runService) where
 
 import           Control.Monad.Logger (LoggingT, runStderrLoggingT)
 import           Data.ByteString      (ByteString)
@@ -13,6 +13,3 @@ type Service api = ServerT api ServiceM
 
 runService :: ServiceM a -> Handler a
 runService = runStderrLoggingT
-
-redirect :: ByteString -> ServiceM a
-redirect path = throwError $ err302 { errHeaders = [("Location", path)] }
-- 
cgit v1.2.3