draw :: SDL.Renderer -> SDL.Texture -> IO ()
draw renderer texture = do
    _ <- SDL.renderClear renderer
    _ <- SDL.renderCopy renderer texture nullPtr nullPtr
    SDL.renderPresent renderer
draw :: SDL.Renderer -> SDL.Texture -> IO ()
draw renderer texture = do
    _ <- SDL.renderClear renderer
    _ <- SDL.renderCopy renderer texture nullPtr nullPtr
    SDL.renderPresent renderer
draw renderer texture = do
    _ <- SDL.renderClear renderer
    _ <- SDL.renderCopy renderer texture nullPtr nullPtr
    SDL.renderPresent renderer