diff options
author | stuebinm | 2022-08-14 19:30:44 +0200 |
---|---|---|
committer | stuebinm | 2022-08-14 19:30:44 +0200 |
commit | ddbbd02dc816c076faaa9141b3aa4853da83749f (patch) | |
tree | 2a20abdfac9577feedb522bd77ef6e8a10e5a0f4 /lib/Server/Util.hs | |
parent | ce14bc010a8f97cd3bab6f5cbd998f614b811546 (diff) |
control room: translations & form input
still basic, but works pretty well overall
Diffstat (limited to '')
-rw-r--r-- | lib/Server/Util.hs | 5 |
1 files changed, 1 insertions, 4 deletions
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)] } |