Further strictifying

2021-07-30 00:23:02 +02:00
parent bd8ef3f416
commit 2d8b27746c
33 changed files with 228 additions and 211 deletions
@@ -67,7 +67,7 @@ data World = World
    , _floorItems           :: IM.IntMap FloorItem
    , _floorTiles           :: [RenderType]
    , _randGen              :: StdGen
-    , _mousePos             :: !(Float,Float)
+    , _mousePos             :: !Point2
    , _testString           :: String
    , _yourID               :: !Int
    , _worldEvents          :: !(World -> World)
@@ -79,7 +79,7 @@ data World = World
    , _foregroundDecorations :: [Polyhedra]
    , _foregroundEdgeVerx   :: [Point3]
    , _corpses              :: IM.IntMap (IM.IntMap [Corpse])
-    , _clickMousePos        :: (Float,Float)
+    , _clickMousePos        :: !Point2
    , _pathGraph            :: ~(Gr Point2 Float)
    , _pathGraph'           :: ~[(Point2,Point2)]
    , _pathPoints           :: ~(IM.IntMap (IM.IntMap [(Int,Point2)]))