@@ -44,11 +44,12 @@ ping var app req
4444 if isHtml headers
4545 then do
4646 let (isEnc, headers') = fixHeaders id headers
47+ let headers'' = filter (\(x, _) -> x /= "content-length") headers'
4748 let fixEnc x =
4849 if isEnc
4950 then joinI $ ungzip $$ x
5051 else x
51− joinI $ builderToByteString $$ fixEnc $ joinI $ insideHead "<script>setInterval(function(){var x;if(window.XMLHttpRequest){x=new XMLHttpRequest();}else{x=new ActiveXObject(\"Microsoft.XMLHTTP\");}x.open(\"GET\",\"/_ping\",false);x.send();},60000)</script>" $$ joinI $ EL.map fromByteString $$ f status headers'
52+ joinI $ builderToByteString $$ fixEnc $ joinI $ insideHead "<script>setInterval(function(){var x;if(window.XMLHttpRequest){x=new XMLHttpRequest();}else{x=new ActiveXObject(\"Microsoft.XMLHTTP\");}x.open(\"GET\",\"/_ping\",false);x.send();},60000)</script>" $$ joinI $ EL.map fromByteString $$ f status headers''
5253 else f status headers
5354
5455insideHead :: S.ByteString -> Enumeratee S.ByteString S.ByteString IO a