Commit before moving buffer swapping command

src/Preload/Render.hs

@@ -141,6 +141,7 @@ preloadRender = do
     -- texture shaders, no textures attached
     fsShad <- makeShaderSized "texture/simple" [vert, frag] [2, 2] 4 ETriangleStrip
     -- note we directly poke the shader vertex data here
+    -- could possibly use an indirect draw call
     pokeArray (shadVBOptr fsShad) $ concat cornerList
 
     bloomBlurShad <- makeShaderUsingShaderVAO "texture/bloomBlur" [vert, frag] ETriangleStrip fsShad