Hlint pass

src/Preload/Render.hs

@@ -101,7 +101,7 @@ preloadRender = do
     rboLightingName <- genObjectName
     bindRenderbuffer Renderbuffer $= rboLightingName
     renderbufferStorage Renderbuffer Depth24Stencil8 (RenderbufferSize 800 600)
-    fboLightingName <- newFramebufferGivenStencil rboLightingName
+    fboLightingName <- newFramebufferGivenStencilAlpha rboLightingName
 
     rboBaseBloomName <- genObjectName
     bindRenderbuffer Renderbuffer $= rboBaseBloomName
@@ -213,6 +213,23 @@ newFramebufferGivenStencil rboName = do
     fboStatus <- framebufferStatus Framebuffer
     print fboStatus
     return (fboName,toName)
+
+newFramebufferGivenStencilAlpha
+    :: RenderbufferObject 
+    -> IO (FramebufferObject, TextureObject)
+newFramebufferGivenStencilAlpha rboName = do
+    fboName <- genObjectName
+    bindFramebuffer Framebuffer $= fboName
+    toName <- genObjectName
+    textureBinding Texture2D $= Just toName
+    texImage2D Texture2D NoProxy 0 RGBA8 (TextureSize2D 800 600) 0 (PixelData RGBA UnsignedByte nullPtr)
+    -- don't need mipmaps
+    textureFilter Texture2D $= minMagFilter
+    framebufferTexture2D Framebuffer (ColorAttachment 0) Texture2D toName 0
+    framebufferRenderbuffer Framebuffer DepthStencilAttachment Renderbuffer rboName
+    fboStatus <- framebufferStatus Framebuffer
+    print fboStatus
+    return (fboName,toName)
     
 setupTextureFramebuffer 
     :: GLsizei
@@ -242,9 +259,9 @@ cleanUpRenderPreload pd = do
 
 {-# INLINE pokeBezQStrat #-}
 pokeBezQStrat :: RenderType -> [[Float]]
-pokeBezQStrat (RenderBezQ vs) = fmap (\((x,y,z),(r,g,b,a),(s,t,u,v)) -> [x,y,z,r,g,b,a,s,t,u,v]
-                                     ) 
-                                     vs
+pokeBezQStrat (RenderBezQ vs) = fmap 
+    (\((x,y,z),(r,g,b,a),(s,t,u,v)) -> [x,y,z,r,g,b,a,s,t,u,v]) 
+    vs
 pokeBezQStrat _ = []