@@ -217,9 +217,7 @@ staticAppPieces ss rawPieces req = liftIO $ do
217 return $ fileToResponse file H.status200 headers
217 return $ fileToResponse file H.status200 headers
219 response NotModified =
219 response NotModified =
220− return $ W.responseLBS H.status304
220+ return $ W.responseLBS H.status304 [] ""
221− [ ("Content-Type", "text/plain")
224 response (SendContent mt lbs) = do
222 response (SendContent mt lbs) = do
225 -- TODO: set caching headers
223 -- TODO: set caching headers