Cleanup

src/Dodge/Event.hs

@@ -51,8 +51,8 @@ handleEvent e = case eventPayload e of
 
 handleMouseMotionEvent :: MouseMotionEventData -> Universe -> Maybe Universe
 handleMouseMotionEvent mmev u = Just $ u & uvWorld . mousePos .~ V2
-    (fromIntegral x - 0.5*getWindowX cfig)
-    (0.5*getWindowY cfig - fromIntegral y)
+    (fromIntegral x - 0.5*_windowX cfig)
+    (0.5*_windowY cfig - fromIntegral y)
   where 
     cfig = _config u
     w = _uvWorld u