Move toward adding multiple equipable items that are not directly usable

src/Dodge/Render.hs

@@ -2,8 +2,7 @@
 Contains the central drawing functions for the dodge loop. -}
 module Dodge.Render 
     ( doDrawing
-    )
-  where
+    ) where
 import Dodge.Data
 import Dodge.Render.Picture
 import Dodge.Render.ShapePicture
@@ -32,12 +31,12 @@ import Graphics.GL.Core43
 doDrawing :: RenderData -> Universe -> IO Word32
 doDrawing pdata u = do
     sTicks <- SDL.ticks
-    let w = _uvWorld u
-        cfig = _config u
+    let w       = _uvWorld u
+        cfig    = _config u
         rot     = _cameraRot w
-        camzoom    = _cameraZoom w
-        trans = _cameraCenter w
-        wins@(V2 winx winy)  = V2 (_windowX cfig) (_windowY cfig)
+        camzoom = _cameraZoom w
+        trans   = _cameraCenter w
+        wins@(V2 winx winy) = V2 (_windowX cfig) (_windowY cfig)
         resFact = resFactorNum $ cfig ^. resolution_factor
         (wallPointsCol,windowPoints) = wallsAndWindows cfig w
         lightPoints     = lightsForGloom w