wai-http2-extra 0.1.0 → 0.1.1

raw patch · 2 files changed

+5/−3 lines, 2 files

Files

• Network/Wai/Middleware/Push/Referer.hs +4/−2
• wai-http2-extra.cabal +1/−1

@@ -120,10 +120,12 @@                     when (isNothing mauth                        || requestHeaderHost req == mauth) $ do                         when (path /= refPath) $ do -- just in case-                            mpp <- makePushPromise refPath path file+                            let !path' = BS.copy path+                                !refPath' = BS.copy refPath+                            mpp <- makePushPromise refPath' path' file                             case mpp of                                 Nothing -> return ()-                                Just pp -> reaperAdd reaper (refPath,pp)+                                Just pp -> reaperAdd reaper (refPath',pp)             ps -> do                 let !h2d = defaultHTTP2Data { http2dataPushPromise = ps}                 setHTTP2Data req (Just h2d)

@@ -1,5 +1,5 @@ Name:                wai-http2-extra-Version:             0.1.0+Version:             0.1.1 Synopsis:            WAI utilities for HTTP/2 License:             MIT License-file:        LICENSE