wai-app-static 3.1.7 → 3.1.7.1

raw patch · 3 files changed

+13/−9 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• test/WaiAppStaticTest.hs +8/−8
• wai-app-static.cabal +1/−1

@@ -1,5 +1,9 @@ # wai-app-static changelog +## 3.1.7.1++* Update the test suite too+ ## 3.1.7  * Use 302 instead of 301 redirect, to avoid caching the presence of an index.html file

@@ -61,18 +61,18 @@       assertStatus 404 =<<         request (setRawPathInfo defRequest "doesNotExist") -    it "301 redirect when multiple slashes" $ webApp $ do+    it "302 redirect when multiple slashes" $ webApp $ do       req <- request (setRawPathInfo defRequest "a//b/c")-      assertStatus 301 req+      assertStatus 302 req       assertHeader "Location" "../../a/b/c" req      let absoluteApp = flip runSession $ staticApp $ (defaultWebAppSettings "test") {           ssMkRedirect = \_ u -> S8.append "http://www.example.com" u         }-    it "301 redirect when multiple slashes" $ absoluteApp $+    it "302 redirect when multiple slashes" $ absoluteApp $       flip mapM_ ["/a//b/c", "a//b/c"] $ \path -> do         req <- request (setRawPathInfo defRequest path)-        assertStatus 301 req+        assertStatus 302 req         assertHeader "Location" "http://www.example.com/a/b/c" req    describe "webApp when requesting a static asset" $ do@@ -131,10 +131,10 @@       assertStatus 304 req       assertNoHeader "Cache-Control" req -    context "301 redirect to add a trailing slash on directories if missing" $ do+    context "302 redirect to add a trailing slash on directories if missing" $ do       it "works at the root" $ fileServerApp $ do         req <- request (setRawPathInfo defRequest "/a")-        assertStatus 301 req+        assertStatus 302 req         assertHeader "Location" "/a/" req        it "works when an index.html is delivered" $ do@@ -144,7 +144,7 @@         inTempDirectory $ fileServerAppWithSettings settings $ do           liftIO $ touch "foo/index.html"           req <- request (setRawPathInfo defRequest "/foo")-          assertStatus 301 req+          assertStatus 302 req           assertHeader "Location" "/foo/" req        let urlMapApp = flip runSession $ \req send ->@@ -158,7 +158,7 @@                     "urlMapApp: only works at subPath"       it "works with subpath at the root of the file server" $ urlMapApp $ do         req <- request (setRawPathInfo defRequest "/subPath")-        assertStatus 301 req+        assertStatus 302 req         assertHeader "Location" "/subPath/" req      context "with defaultWebAppSettings" $ do

@@ -1,5 +1,5 @@ name:            wai-app-static-version:         3.1.7+version:         3.1.7.1 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>