blob: 45c2477ca1b669fdc48f452a426cf87366e4ba1f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-- | mostly the monad the service runs in
module Server.Util (Service, ServiceM, runService) where
import Control.Monad.Logger (LoggingT, runStderrLoggingT)
import Servant (Handler, ServerT)
type ServiceM = LoggingT Handler
type Service api = ServerT api ServiceM
runService :: ServiceM a -> Handler a
runService = runStderrLoggingT
|
