diff options
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)] } |