diff options
author | Ben Sima <ben@bsima.me> | 2020-03-29 05:00:59 -0700 |
---|---|---|
committer | Ben Sima <ben@bsima.me> | 2020-03-29 07:49:02 -0700 |
commit | 22bbc12e63c5fb4fd57ebd0f7a720dcda050d9ca (patch) | |
tree | 0da03d7914f5a3724b9c58209835ad414b2e1497 /Com/MusicMeetsComics/Server/Config.hs | |
parent | 831620c6ae0461228e0801de92dfc6671333a079 (diff) |
Bump nixpkgs pin
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 ) |