Continue migration to openglraw

src/Framebuffer/Update.hs

@@ -7,6 +7,7 @@ module Framebuffer.Update (
     sizeFBOs,
 ) where
 
+import Framebuffer.Check
 import Control.Lens
 import Control.Monad
 import Data.Preload.Render
@@ -179,10 +180,3 @@ initializeTexture2DArray fbo attachpoint x y z minfilt magfilt informat = do
     glTextureParameteri to1 GL_TEXTURE_MAG_FILTER (unsafeCoerce magfilt)
     glNamedFramebufferTexture (_unFBO fbo) attachpoint to1 0
     return to1
-
-checkFBO :: FBO -> IO ()
-checkFBO fbo = do
-    fboStatus <- glCheckNamedFramebufferStatus (_unFBO fbo) GL_FRAMEBUFFER
-    case fboStatus of
-        36053 -> return () -- this should correspond to GL_COMPLETE or something
-        _ -> error $ "after resize, resizeFBOTO framebuffer status:" ++ show fboStatus