drawingCallback :: IORef Scene -> IO ()
drawingCallback sceneRef = get sceneRef >>= drawScene
drawingCallback :: IORef Scene -> IO ()
drawingCallback sceneRef = get sceneRef >>= drawScene
drawingCallback sceneRef = get sceneRef >>= drawScene