wai-http2-extra 0.0.0 → 0.0.1

raw patch · 2 files changed

+4/−2 lines, 2 filesdep +http-types

Dependencies added: http-types

Files

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

@@ -23,6 +23,7 @@ import Foreign.ForeignPtr (withForeignPtr, ForeignPtr) import Foreign.Ptr (Ptr, plusPtr, minusPtr, nullPtr) import Foreign.Storable (peek)+import Network.HTTP.Types (Status(..)) import Network.Wai import Network.Wai.Handler.Warp import Network.Wai.Internal (Response(..))@@ -81,7 +82,7 @@         Nothing -> case requestHeaderReferer req of             Nothing      -> return ()             Just referer -> case res of-                ResponseFile _ _ file Nothing -> do+                ResponseFile (Status 200 "OK") _ file Nothing -> do                     (mauth,refPath) <- parseUrl referer                     when (isNothing mauth                        || requestHeaderHost req == mauth) $ do

@@ -1,5 +1,5 @@ Name:                wai-http2-extra-Version:             0.0.0+Version:             0.0.1 Synopsis:            WAI utilities for HTTP/2 License:             MIT License-file:        LICENSE@@ -17,6 +17,7 @@                    , auto-update               >= 0.1.3    && < 0.2                    , bytestring                    , containers+                   , http-types                    , wai                    , warp                    , word8