@@ -84,7 +84,7 @@ decode sendInner flushInner streamingBody = do
84 Z.finishInflate inflate >>= sendInner . fromByteString
84 Z.finishInflate inflate >>= sendInner . fromByteString
86toInsert :: S.ByteString
86toInsert :: S.ByteString
87−toInsert = "<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>"
87+toInsert = "<script>setInterval(function(){var x;if(window.XMLHttpRequest){x=new XMLHttpRequest();}else{x=new ActiveXObject(\"Microsoft.XMLHTTP\");}x.open(\"GET\",\"/_ping?\" + (new Date()).getTime(),true);x.send();},60000)</script>"
89addInsideHead :: (Builder -> IO ())
89addInsideHead :: (Builder -> IO ())