12 lines
375 B
Haskell
12 lines
375 B
Haskell
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
|