summaryrefslogtreecommitdiff
path: root/Com/MusicMeetsComics/Server/Config.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Com/MusicMeetsComics/Server/Config.hs')
-rw-r--r--Com/MusicMeetsComics/Server/Config.hs6
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
)