Enable more control of bloom using hdr

src/Framebuffer/Setup.hs

@@ -1,6 +1,8 @@
+{- | For initialising framebuffers.
+ -}
 module Framebuffer.Setup
     ( setupTextureFramebuffer
-    , newFramebufferGivenStencil
+    , setupFramebufferGivenStencil
     ) where
 import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
 import Graphics.GL.Core43
@@ -23,11 +25,11 @@ setupTextureFramebuffer x y = do
     print fboStatus
     return (fboName, fboTO)
 
-newFramebufferGivenStencil 
+setupFramebufferGivenStencil 
     :: RenderbufferObject 
     -> IO (FramebufferObject, TextureObject)
-{-# INLINE newFramebufferGivenStencil #-}
-newFramebufferGivenStencil rboName = do
+{-# INLINE setupFramebufferGivenStencil #-}
+setupFramebufferGivenStencil rboName = do
     fboName <- genObjectName
     bindFramebuffer Framebuffer $= fboName
     toName <- genObjectName