Fix bloom resize bug, bloom itself could use improvement

src/Framebuffer/Setup.hs

@@ -0,0 +1,40 @@
+module Framebuffer.Setup
+    ( setupTextureFramebuffer
+    , newFramebufferGivenStencil
+    ) where
+import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
+import Graphics.GL.Core43
+
+setupTextureFramebuffer 
+    :: GLsizei
+    -> GLsizei
+    -> IO (FramebufferObject, TextureObject)
+{-# INLINE setupTextureFramebuffer #-}
+setupTextureFramebuffer x y = do
+    fboName <- genObjectName
+    bindFramebuffer Framebuffer $= fboName
+
+    fboTO <- genObjectName
+    textureBinding Texture2D $= Just fboTO
+    glTexStorage2D GL_TEXTURE_2D 1 GL_RGBA8 x y
+    textureFilter Texture2D $= minMagFilter
+    framebufferTexture2D Framebuffer (ColorAttachment 0) Texture2D fboTO 0
+    fboStatus <- framebufferStatus Framebuffer
+    print fboStatus
+    return (fboName, fboTO)
+
+newFramebufferGivenStencil 
+    :: RenderbufferObject 
+    -> IO (FramebufferObject, TextureObject)
+{-# INLINE newFramebufferGivenStencil #-}
+newFramebufferGivenStencil rboName = do
+    fboName <- genObjectName
+    bindFramebuffer Framebuffer $= fboName
+    toName <- genObjectName
+    framebufferRenderbuffer Framebuffer DepthStencilAttachment Renderbuffer rboName
+    fboStatus <- framebufferStatus Framebuffer
+    print fboStatus
+    return (fboName,toName)
+
+minMagFilter :: ((TextureFilter, Maybe TextureFilter),TextureFilter)
+minMagFilter = ((Nearest,Nothing),Nearest)