Linting, haddocking

src/Dodge/Render.hs

@@ -31,7 +31,7 @@ import qualified Data.Set as S
 import Graphics.Rendering.OpenGL hiding (color,scale,translate,rotate)
 import qualified SDL
 
-halfwindow = over windowX ( / 2) . over windowY ( / 2)
+halfwindow = over (config . windowX) ( / 2) . over (config . windowY) ( / 2)
 
 doDrawing :: RenderData -> World -> IO (Word32)
 doDrawing pdata w = do
@@ -40,7 +40,7 @@ doDrawing pdata w = do
     let rot     = _cameraRot w
         zoom    = _cameraZoom w
         trans@(tranx,trany) = _cameraCenter w
-        wins@(winx,winy)    = (_windowX w,_windowY w)
+        wins@(winx,winy)    = (getWindowX w,getWindowY w)
         wallPointsCol   = wallsPointsAndCols w
         windowPoints    = wallsWindows w
         lightPoints     = lightsForGloom' w