Cleanup. Start tweaking flares, glares and flashes

src/Preload/Render.hs

@@ -15,8 +15,6 @@ import Framebuffer.Setup
 import Data.Preload.Render
 
 import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
---import Graphics.GL.Core43
---import Control.Lens
 import Control.Monad
 import Foreign
 import qualified Data.Vector.Mutable as MV

src/Preload/Update.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Preload.Update
-    (pdataResizeUpdate
+    ( pdataResizeUpdate
     ) where
 import Data.Preload
 import Framebuffer.Update
@@ -39,4 +39,3 @@ renderDataResizeUpdate xsize ysize xfull yfull rdata = do
     bbShad <- makeByteStringShaderUsingVAO "bloomBlur" [(vert,bbVert),(frag,bbFrag')] ETriangleStrip
                 (_fullscreenShader rdata)
     return (rdata' {_bloomBlurShader = bbShad})
-