aboutsummaryrefslogtreecommitdiff
path: root/app
diff options
context:
space:
mode:
Diffstat (limited to 'app')
-rw-r--r--app/Server.hs8
1 files changed, 8 insertions, 0 deletions
diff --git a/app/Server.hs b/app/Server.hs
index 30109e6..fa786c2 100644
--- a/app/Server.hs
+++ b/app/Server.hs
@@ -125,7 +125,11 @@ import Servant
, Header
, Headers
, QueryParam
+#if MIN_VERSION_GLASGOW_HASKELL(8,6,5,0)
+ , ServerError
+#else
, ServantErr
+#endif
, ServerT
, ToHttpApiData(..)
, addHeader
@@ -1835,7 +1839,11 @@ fileNotFound :: Response
fileNotFound =
responseLBS status404 [("Content-Type", "text/plain")] "Not found"
+#if MIN_VERSION_GLASGOW_HASKELL(8,6,5,0)
+throwServantError :: (MonadIO m) => ServerError -> m a
+#else
throwServantError :: (MonadIO m) => ServantErr -> m a
+#endif
throwServantError = liftIO . throwIO
server :: Environment -> ServerT API Handler