swapBuffers :: IO ()
swapBuffers = do
    _ <- currentContextID  -- check that we are in a context
    runPendingFinalizers
    SDLContextLocal window <- retrieveContextLocalData (error "impossible")
    glSwapWindow window

-- | Capture or release the mouse.
swapBuffers :: IO ()
swapBuffers = do
    _ <- currentContextID  -- check that we are in a context
    runPendingFinalizers
    SDLContextLocal window <- retrieveContextLocalData (error "impossible")
    glSwapWindow window

-- | Capture or release the mouse.
swapBuffers = do
    _ <- currentContextID  -- check that we are in a context
    runPendingFinalizers
    SDLContextLocal window <- retrieveContextLocalData (error "impossible")
    glSwapWindow window

-- | Capture or release the mouse.