Cleanup. Start tweaking flares, glares and flashes

src/Dodge/Event.hs

@@ -59,7 +59,7 @@ handleMouseButtonEvent mbev w = case mouseButtonEventMotion mbev of
   where 
     but = mouseButtonEventButton mbev
 
-{- | Sets window position in config.  -}
+{- | Sets window position in config. -}
 handleWindowMoveEvent :: WindowMovedEventData -> World -> Maybe World
 handleWindowMoveEvent mev w = Just $ w 
     & config . windowPosX .~ fromIntegral x
@@ -67,7 +67,7 @@ handleWindowMoveEvent mev w = Just $ w
   where
     P (V2 x y) = windowMovedEventPosition mev
 
-{- | Resets the world window size, and resizes the fbo that gets the light map drawn into it.  -}
+{- | Resets the world window size, and resizes the fbo that gets the light map drawn into it. -}
 handleResizeEvent :: WindowSizeChangedEventData -> World -> Maybe World
 handleResizeEvent sev w = Just 
     . set (config . windowX) (fromIntegral x)