jsInject :: WD ()
jsInject = do
    elem <- pageBody
    funcTmp <- executeJS [] "return GameManager.prototype.isGameTerminated.toString();" :: WD String
    executeJS [] "GameManager.prototype.isGameTerminated = function() { GameManager._instance = this; return true; }" :: WD A.Value
    sendKeys "s" elem
    executeJS [] $ T.pack $ "eval(GameManager.prototype.isGameTerminated = " ++ funcTmp ++ ")" :: WD A.Value
    return ()
jsInject :: WD ()
jsInject = do
    elem <- pageBody
    funcTmp <- executeJS [] "return GameManager.prototype.isGameTerminated.toString();" :: WD String
    executeJS [] "GameManager.prototype.isGameTerminated = function() { GameManager._instance = this; return true; }" :: WD A.Value
    sendKeys "s" elem
    executeJS [] $ T.pack $ "eval(GameManager.prototype.isGameTerminated = " ++ funcTmp ++ ")" :: WD A.Value
    return ()
jsInject = do
    elem <- pageBody
    funcTmp <- executeJS [] "return GameManager.prototype.isGameTerminated.toString();" :: WD String
    executeJS [] "GameManager.prototype.isGameTerminated = function() { GameManager._instance = this; return true; }" :: WD A.Value
    sendKeys "s" elem
    executeJS [] $ T.pack $ "eval(GameManager.prototype.isGameTerminated = " ++ funcTmp ++ ")" :: WD A.Value
    return ()