Add 'Location' to exposed headers

2015-02-18 10:22:24 +01:00
parent 337b49f386
commit a93e6c050d
2 changed files with 2 additions and 2 deletions
@@ -59,7 +59,7 @@ spec = around withApp $ describe "CORS" $ do
        liftIO $ simpleHeaders r `shouldSatisfy` matchHeader
          "Access-Control-Expose-Headers"
          "Content-Encoding, Content-Location, Content-Range, Content-Type, \
-            \Date, Server, Transfer-Encoding, Range-Unit"
+            \Date, Location, Server, Transfer-Encoding, Range-Unit"

    describe "postflight request" $
      it "allows INFO body through even with CORS request headers present" $ do