Cleanup

src/Dodge/Base/Window.hs

@@ -4,8 +4,6 @@ module Dodge.Base.Window
     , halfHeight
     , screenPolygon
     , screenPolygonBord
-    , getWindowX
-    , getWindowY
     , screenBox
     )
     where
@@ -46,12 +44,8 @@ screenPolygonBord xbord ybord cfig w = [tr,tl,bl,br]
     bl = theTransform (V2 (-hw) (-hh))
 
 halfWidth,halfHeight :: Configuration -> Float
-halfWidth w = getWindowX w / 2
-halfHeight w = getWindowY w / 2
-getWindowX ,getWindowY :: Configuration -> Float 
-getWindowX = _windowX
-getWindowY = _windowY
-
+halfWidth w = _windowX w / 2
+halfHeight w = _windowY w / 2
 -- | A box of the size of the screen in screen centered coordinates
 screenBox :: Configuration -> [Point2]
 screenBox w = rectNSEW hh (-hh) hw (-hw)