Linting, haddocking

src/Dodge/Event.hs

@@ -47,8 +47,8 @@ handleEvent' e = case eventPayload e of
 
 handleMouseMotionEvent :: MouseMotionEventData -> World -> Maybe World
 handleMouseMotionEvent mmev w
-    = Just $ w & mousePos .~ (fromIntegral x - 0.5*_windowX w
-                             ,0.5*_windowY w - fromIntegral y
+    = Just $ w & mousePos .~ (fromIntegral x - 0.5*getWindowX w
+                             ,0.5*getWindowY w - fromIntegral y
                              )
     where P (V2 x y) = mouseMotionEventPos mmev
 
@@ -72,8 +72,8 @@ Resets the world window size, and resizes the fbo that gets the light map drawn
  -}
 handleResizeEvent :: WindowSizeChangedEventData -> World -> Maybe World
 handleResizeEvent sev w = Just 
-    . set windowX (fromIntegral x)
-    . set windowY (fromIntegral y)
+    . set (config . windowX) (fromIntegral x)
+    . set (config . windowY) (fromIntegral y)
     $ over sideEffects ( resizeSpareFBO (fromIntegral x `div` divRes) (fromIntegral y `div` divRes) : )
     w
   where