makeMove :: Moves -> WD ()
makeMove m = do
    executeJS [] $ T.pack $ "GameManager._instance.move(" ++ (show . fromEnum $ m) ++ ")" :: WD A.Value
    return ()
makeMove :: Moves -> WD ()
makeMove m = do
    executeJS [] $ T.pack $ "GameManager._instance.move(" ++ (show . fromEnum $ m) ++ ")" :: WD A.Value
    return ()
makeMove m = do
    executeJS [] $ T.pack $ "GameManager._instance.move(" ++ (show . fromEnum $ m) ++ ")" :: WD A.Value
    return ()