Make pathedge zoning use sets, probably doesn't help

2022-08-24 14:01:39 +01:00
parent 13b07b53ce
commit 6973663055
16 changed files with 68 additions and 53 deletions
@@ -10,6 +10,7 @@ module Dodge.Data.Door (
    module Dodge.Data.WorldEffect,
 ) where

+import Data.Set (Set)
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -45,7 +46,7 @@ data Door = Door
    , _drPushedBy :: PushSource
    , _drPushes :: Maybe Int
    , _drMounts :: [MountedObject]
-    , _drObstructs :: [(Int, Int, PathEdge)]
+    , _drObstructs :: Set (Int, Int, PathEdge)
    , _drObstacleType :: EdgeObstacle
    }
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)