Make background black, start cleanup of weapons

src/Framebuffer/Update.hs

@@ -20,7 +20,7 @@ sizeFBOs
     -> Int  -- ^ Full width
     -> Int  -- ^ Full height
     -> RenderData
-    -> IO (RenderData)
+    -> IO RenderData
 sizeFBOs xsize ysize xfull yfull rdata = do
     resizeRBO (_rboBaseBloom rdata) xsize ysize
     resizeRBO (_rboLighting rdata)  xsize ysize
@@ -44,10 +44,10 @@ updateFBOTO
     :: Int
     -> Int
     -> ((TextureFilter, Maybe TextureFilter),TextureFilter)
-    -> GLenum
+    -> GLenum   -- ^ internal color format
     -> RenderData
     -> ALens' RenderData (FramebufferObject, TextureObject)
-    -> IO (RenderData)
+    -> IO RenderData
 updateFBOTO xsize ysize mmfilt inFormat pdata target = do
     newfbo2 <- resizeFBOTO (pdata ^# target) xsize ysize mmfilt inFormat
     return $ storing target newfbo2 pdata
@@ -57,7 +57,7 @@ resizeFBOTO
     -> Int
     -> Int
     -> ((TextureFilter, Maybe TextureFilter),TextureFilter)
-    -> GLenum
+    -> GLenum   -- ^ internal color format
     -> IO (FramebufferObject, TextureObject)
 resizeFBOTO (fboName,toOld) xsize ysize mmfilt inFormat = do
     bindFramebuffer Framebuffer $= fboName