Attempt to improve perfomance

2022-08-25 09:52:12 +01:00
parent 6973663055
commit 920bfdbc8e
18 changed files with 60 additions and 311 deletions
@@ -46,7 +46,7 @@ data Door = Door
    , _drPushedBy :: PushSource
    , _drPushes :: Maybe Int
    , _drMounts :: [MountedObject]
-    , _drObstructs :: Set (Int, Int, PathEdge)
+    , _drObstructs :: Set PathEdgeNodes
    , _drObstacleType :: EdgeObstacle
    }
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)