Restrict some arguments

src/Dodge/Base/Coordinate.hs

@@ -1,13 +1,13 @@
-module Dodge.Base.Coordinate 
-    ( mouseWorldPos
-    , cartePosToScreen
-    , worldPosToScreen
-    ) where
+module Dodge.Base.Coordinate (
+    mouseWorldPos,
+    cartePosToScreen,
+    worldPosToScreen,
+) where
 
+import Control.Lens
 import Dodge.Base.WinScale
 import Dodge.Data.Universe
 import Geometry
-import Control.Lens
 
 ---- | Transform coordinates from world position to screen coordinates.
 --worldPosToScreenNorm :: Configuration -> World -> Point2 -> Point2
@@ -52,8 +52,8 @@ mouseWorldPos w =
 ---- | The mouse position in map coordinates
 --mouseCartePos :: World -> Point2
 --mouseCartePos w = (thehud ^. carteCenter)
---        +.+ 
---        (1 / (thehud ^. carteZoom)) 
+--        +.+
+--        (1 / (thehud ^. carteZoom))
 --            *.* rotateV (thehud ^. carteRot) (_mousePos w)
 --  where
 --    thehud = w ^. cWorld . lWorld . hud