diff options
Diffstat (limited to 'Com/MusicMeetsComics/Server/Config.hs')
-rw-r--r-- | Com/MusicMeetsComics/Server/Config.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Com/MusicMeetsComics/Server/Config.hs b/Com/MusicMeetsComics/Server/Config.hs index 2bbfabc..ac634a2 100644 --- a/Com/MusicMeetsComics/Server/Config.hs +++ b/Com/MusicMeetsComics/Server/Config.hs @@ -22,7 +22,7 @@ import Network.Wai.Handler.Warp (Port) import Network.Wai.Middleware.RequestLogger (logStdout, logStdoutDev) import Protolude import Safe (readMay) -import Servant (ServantErr) +import Servant (ServerError) import System.Environment (lookupEnv) import System.Remote.Monitoring (forkServer, serverMetricStore, serverThreadId) @@ -34,12 +34,12 @@ import System.Remote.Monitoring (forkServer, serverMetricStore, server -- By encapsulating the effects in our newtype, we can add layers to the -- monad stack without having to modify code that uses the current layout. newtype AppT m a = AppT - { runApp :: ReaderT Config (ExceptT ServantErr m) a + { runApp :: ReaderT Config (ExceptT ServerError m) a } deriving ( Functor , Applicative , Monad , MonadReader Config - , MonadError ServantErr + , MonadError ServerError , MonadIO ) |