Slight cleanup

src/Dodge/Event/Menu.hs

@@ -61,7 +61,7 @@ handlePressedKeyInMenu mState scode w = case mState of
         _               -> popMenu $ w & sideEffects %~ (saveConfig (_config w) :)
     GraphicsOptionMenu -> case scode of
         ScancodeW       -> Just $ w & config . wall_textured     %~ not
-        ScancodeS       -> Just $ updateFramebufferSize $ w & config . shadow_resolution %~ cycleResolution
+        ScancodeS       -> Just $ updateFramebufferSize $ w & config . resolution_factor %~ cycleResolution
         _ -> popMenu $ w & sideEffects %~ (saveConfig (_config w) :)
     ControlList -> Just $ w & menuLayers %~ tail
     _ -> Just w
@@ -93,7 +93,7 @@ updateFramebufferSize w = w & sideEffects
     %~ (pdataResizeUpdate (x `div` divRes) (y `div` divRes) x y : )
   where 
     (x,y) = (round $ getWindowX w, round $ getWindowY w)
-    divRes = w ^. config . shadow_resolution
+    divRes = w ^. config . resolution_factor
 
 
 cycleResolution :: (Eq a, Num a, Num p) => a -> p