renderUserApp :: Window -> UserApp a -> IO ()
renderUserApp win uApp = do
    clear [ColorBuffer, DepthBuffer]
    uApp^.onRender $ uApp^.userData
    swapBuffers win
renderUserApp :: Window -> UserApp a -> IO ()
renderUserApp win uApp = do
    clear [ColorBuffer, DepthBuffer]
    uApp^.onRender $ uApp^.userData
    swapBuffers win
renderUserApp win uApp = do
    clear [ColorBuffer, DepthBuffer]
    uApp^.onRender $ uApp^.userData
    swapBuffers win