core-webserver-warp 0.2.1.1 → 0.2.1.2

raw patch · 2 files changed

+3/−15 lines, 2 filesdep ~http2PVP ok

version bump matches the API change (PVP)

Dependency ranges changed: http2

API changes (from Hackage documentation)

Files

• core-webserver-warp.cabal +2/−2
• lib/Core/Webserver/Warp.hs +1/−13

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           core-webserver-warp-version:        0.2.1.1+version:        0.2.1.2 synopsis:       Interoperability with Wai/Warp description:    This is part of a library to help build command-line programs, both tools and                 longer-running daemons.@@ -47,7 +47,7 @@     , core-telemetry >=0.2.7     , core-text     , http-types-    , http2 <4+    , http2     , mtl     , safe-exceptions     , vault

@@ -40,7 +40,7 @@ @ application :: 'Application' application = request sendResponse =-    sendResponse ('Network.WAI.responseLBS' 'Network.HTTP.Types.status200' [] \"Hello World\")+    sendResponse ('Network.Wai.responseLBS' 'Network.HTTP.Types.status200' [] \"Hello World\") @  performs the heroic duty of replying to you with the given string. In@@ -96,15 +96,9 @@     ( Status     , hContentType     , status400-    , status413-    , status431     , status500     , statusCode     )-import Network.HTTP2.Frame-    ( ErrorCodeId (UnknownErrorCode)-    , HTTP2Error (ConnectionError)-    ) import Network.Wai import Network.Wai.Handler.Warp (InvalidRequest, Port) import Network.Wai.Handler.Warp qualified as Warp@@ -253,12 +247,6 @@     | Just (_ :: InvalidRequest) <-         fromException e =         (status400, intoRope (displayException e))-    | Just (ConnectionError (UnknownErrorCode 413) t) <--        fromException e =-        (status413, intoRope t)-    | Just (ConnectionError (UnknownErrorCode 431) t) <--        fromException e =-        (status431, intoRope t)     | otherwise =         (status500, "Internal Server Error")