Cleanup. Start tweaking flares, glares and flashes

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})
-