Linting, haddocking

src/Dodge/Event/Menu.hs

@@ -3,6 +3,7 @@ module Dodge.Event.Menu
     ) where
 import Dodge.Data
 import Dodge.Data.Menu
+import Dodge.Base
 import Dodge.Floor
 import Dodge.Initialisation
 import Dodge.SoundLogic
@@ -67,14 +68,14 @@ handlePressedKeyInMenu mState scode w = case mState of
     startNewGame = Just $ generateFromList levx 
         $ initialWorld 
             & randGen .~ _randGen w
-            & windowX .~ _windowX w
-            & windowY .~ _windowY w
+            & config . windowX .~ getWindowX w
+            & config . windowY .~ getWindowY w
 
 updateFramebufferSize :: World -> World
 updateFramebufferSize w = w & sideEffects 
     %~ (resizeSpareFBO (ceiling x `div` divRes) (ceiling y `div` divRes) : )
   where 
-    (x,y) = (_windowX w, _windowY w)
+    (x,y) = (getWindowX w, getWindowY w)
     divRes = w ^. config . shadow_resolution
 
 cycleResolution 1 = 2