wai-extra 1.3.1 → 1.3.1.1

raw patch · 2 files changed

+11/−7 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• test/WaiExtraTest.hs +10/−6
• wai-extra.cabal +1/−1

@@ -59,7 +59,9 @@     it "method override" caseMethodOverride     it "method override post" caseMethodOverridePost     it "accept override" caseAcceptOverride-    it "dalvik multipart" caseDalvikMultipart+    describe "dalvik multipart" $ do+        it "non-chunked" $ dalvikHelper True+        it "chunked" $ dalvikHelper False     it "debug request body" caseDebugRequestBody  caseParseQueryString :: Assertion@@ -430,11 +432,10 @@                 }     assertHeader "Accept" "baz" sres3 -caseDalvikMultipart :: Assertion-caseDalvikMultipart = do-    let headers =-            [ ("content-length", "12098")-            , ("content-type", "multipart/form-data;boundary=*****")+dalvikHelper :: Bool -> Assertion+dalvikHelper includeLength = do+    let headers' =+            [ ("content-type", "multipart/form-data;boundary=*****")             , ("GATEWAY_INTERFACE", "CGI/1.1")             , ("PATH_INFO", "/")             , ("QUERY_STRING", "")@@ -450,6 +451,9 @@             , ("HTTP_VERSION", "HTTP/1.1")             , ("REQUEST_PATH", "/")             ]+        headers+            | includeLength = ("content-length", "12098") : headers'+            | otherwise = headers'     let request' = defaultRequest             { requestHeaders = headers             }

@@ -1,5 +1,5 @@ Name:                wai-extra-Version:             1.3.1+Version:             1.3.1.1 Synopsis:            Provides some basic WAI handlers and middleware. Description:         The goal here is to provide common features without many dependencies. License:             MIT