(broken) commit

src/Dodge/Base/Window.hs

@@ -7,10 +7,10 @@ module Dodge.Base.Window (
     screenBox,
 ) where
 
+import Control.Lens
 import Dodge.Data.Camera
 import Dodge.Data.Config
 import Geometry
-import Control.Lens
 
 -- | A box covering the screen in world coordinates
 screenPolygon :: Configuration -> Camera -> [Point2]
@@ -45,8 +45,8 @@ screenPolygonBord xbord ybord cfig w = [tr, tl, bl, br]
     bl = theTransform (V2 (- hw) (- hh))
 
 halfWidth, halfHeight :: Configuration -> Float
-halfWidth = (0.5 *) .  windowXFloat
-halfHeight = (0.5 *) .  windowYFloat
+halfWidth = (0.5 *) . windowXFloat
+halfHeight = (0.5 *) . windowYFloat
 
 -- | A box of the size of the screen in screen centered coordinates
 screenBox :: Configuration -> [Point2]
@@ -54,5 +54,3 @@ screenBox w = rectNSWE hh (- hh) (- hw) hw
   where
     hw = halfWidth w
     hh = halfHeight w
-
-