From 22bbc12e63c5fb4fd57ebd0f7a720dcda050d9ca Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sun, 29 Mar 2020 05:00:59 -0700 Subject: Bump nixpkgs pin --- Com/MusicMeetsComics/Server/Config.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Com/MusicMeetsComics/Server/Config.hs') 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 ) -- cgit v1.2.3