Continue migration to openglraw

src/Framebuffer/Check.hs

@@ -0,0 +1,11 @@
+module Framebuffer.Check where
+
+import Data.Preload.Render
+import Graphics.GL.Core45
+
+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 $ "FBO id "++ show (_unFBO fbo) ++ ":" ++ show fboStatus