diff options
| author | Avi Dessauer <avi.the.coder@gmail.com> | 2019-08-21 05:59:18 -0400 |
|---|---|---|
| committer | Alexey Kiryushin <alexey.a.kiryushin@gmail.com> | 2019-08-21 12:59:18 +0300 |
| commit | 5295ac7f7f26c3a43f0fe9b9c826e876b29cf666 (patch) | |
| tree | 77903524892b9b0108006591a8ccc8d2a854d8c8 /app | |
| parent | 611368eb780d9a2d5d0476cd9e00da2f0b69a647 (diff) | |
Bump 8.6.5 plans to lts-14 (#41)
Diffstat (limited to 'app')
| -rw-r--r-- | app/Server.hs | 8 |
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 |