Work towards making world read/showable

src/Dodge/Event.hs

@@ -49,7 +49,7 @@ handleMouseMotionEvent mmev u = Just $ u & uvWorld . mousePos .~ V2
     (fromIntegral x - 0.5*_windowX cfig)
     (0.5*_windowY cfig - fromIntegral y)
   where
-    cfig = _config u
+    cfig = _uvConfig u
     P (V2 x y) = mouseMotionEventPos mmev
 
 handleMouseButtonEvent :: MouseButtonEventData -> World -> World
@@ -62,8 +62,8 @@ handleMouseButtonEvent mbev = case mouseButtonEventMotion mbev of
 {- | Sets window position in config. -}
 handleWindowMoveEvent :: WindowMovedEventData -> Universe -> Maybe Universe
 handleWindowMoveEvent mev = Just
-    . (config . windowPosX .~ fromIntegral x)
-    . (config . windowPosY .~ fromIntegral y)
+    . (uvConfig . windowPosX .~ fromIntegral x)
+    . (uvConfig . windowPosY .~ fromIntegral y)
   where
     P (V2 x y) = windowMovedEventPosition mev
 
@@ -72,14 +72,14 @@ handleWindowMoveEvent mev = Just
 -- later may be a good idea
 handleResizeEvent :: WindowSizeChangedEventData -> Universe -> IO (Maybe Universe)
 handleResizeEvent sev u = return . Just $ u
-    & config . windowX .~ fromIntegral x
-    & config . windowY .~ fromIntegral y
+    & uvConfig . windowX .~ fromIntegral x
+    & uvConfig . windowY .~ fromIntegral y
     & uvWorld . sideEffects %~ sideEffectUpdatePreload divRes x y
   where
     x = fromIntegral x'
     y = fromIntegral y'
     V2 x' y' = windowSizeChangedEventSize sev
-    divRes = resFactorNum $ u ^. config . graphics_resolution_factor
+    divRes = resFactorNum $ u ^. uvConfig . graphics_resolution_factor
 
 handleMouseWheelEvent :: MouseWheelEventData -> Universe -> Maybe Universe
 handleMouseWheelEvent mwev w = case _menuLayers w of