Cleanup

2022-06-25 21:45:17 +01:00
parent c56e53d33f
commit 4eaa31bf32
9 changed files with 24 additions and 23 deletions
@@ -141,9 +141,9 @@ data World = World
    , _foregroundShape      :: Shape
    , _corpses              :: IM.IntMap Corpse
    , _clickMousePos        :: Point2
-    , _pathGraph            :: ~(Gr Point2 Float)
-    , _pathGraphP           :: ~[(Point2,Point2)]
-    , _pathPoints           :: ~(IM.IntMap (IM.IntMap [(Int,Point2)]))
+    , _pathGraph            :: Gr Point2 Float
+    , _pathGraphP           :: S.Set (Point2,Point2)
+    , _pathPoints           :: IM.IntMap (IM.IntMap [(Int,Point2)])
    , _hud                  :: HUD
    , _lightSources         :: IM.IntMap LightSource
    , _tempLightSources     :: [TempLightSource]