@@ -267,13 +267,13 @@ staticAppPieces ss rawPieces req sendResponse = liftIO $ do
267267 Just hash -> replace "etag" (Just hash) (W.queryString req)
268268 Nothing -> remove "etag" (W.queryString req)
269269
270− sendResponse $ W.responseLBS H.status301
270+ sendResponse $ W.responseLBS H.status302
271271 [ ("Content-Type", "text/plain")
272272 , ("Location", S8.append loc $ H.renderQuery True qString)
273273 ] "Redirect"
274274
275275 response (RawRedirect path) =
276− sendResponse $ W.responseLBS H.status301
276+ sendResponse $ W.responseLBS H.status302
277277 [ ("Content-Type", "text/plain")
278278 , ("Location", path)
279279 ] "Redirect"