added checkFramebufferStatus to interface.

Author: jutaro

src/Graphics/WebGLFramebuffer.purs

@@ -16,11 +16,12 @@ module Graphics.WebGLFramebuffer
 (
     WebGLBuf(..)
     , createFramebuffer
+    , checkFramebufferStatus
     , bindFramebuffer
     , unbindFramebuffer
     , WebGLRendBuf(..)
     , createRenderbuffer
-    , bindRenderbuffer 
+    , bindRenderbuffer
     , unbindRenderbuffer
     , RenderbufferFormat(..)
     , renderbufferStorage
@@ -62,6 +63,9 @@ attachementPointToConst DEPTH_ATTACHMENT  = _DEPTH_ATTACHMENT
 attachementPointToConst STENCIL_ATTACHMENT = _STENCIL_ATTACHMENT
 attachementPointToConst DEPTH_STENCIL_ATTACHMENT = _DEPTH_STENCIL_ATTACHMENT
 
+checkFramebufferStatus :: forall eff. GLenum -> Eff (webgl :: WebGl | eff) GLenum
+checkFramebufferStatus = runFn1 checkFramebufferStatus_
+
 createFramebuffer :: forall eff. EffWebGL eff WebGLBuf
 createFramebuffer = do
   b <- runFn0 createFramebuffer_