summaryrefslogtreecommitdiff
path: root/Com/MusicMeetsComics/Server/Config.hs
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2020-03-29 05:00:59 -0700
committerBen Sima <ben@bsima.me>2020-03-29 07:49:02 -0700
commit22bbc12e63c5fb4fd57ebd0f7a720dcda050d9ca (patch)
tree0da03d7914f5a3724b9c58209835ad414b2e1497 /Com/MusicMeetsComics/Server/Config.hs
parent831620c6ae0461228e0801de92dfc6671333a079 (diff)
Bump nixpkgs pin
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
)