Continue to work on pathfinding

src/Dodge/Data/Door.hs

@@ -8,7 +8,6 @@ module Dodge.Data.Door (
     module Dodge.Data.WorldEffect,
 ) where
 
-import Data.Set (Set)
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -42,7 +41,7 @@ data Door = Door
     , _drPushedBy :: PushSource
     , _drPushes :: Maybe Int
     , _drMounts :: [MountedObject]
-    , _drObstructs :: Set PathEdgeNodes
+--    , _drObstructs :: [(Int,Int)]
     , _drObstacleType :: EdgeObstacle
     }