module Framebuffer.Check where

import Shader.Data
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