Cleanup door placement/auto path generation

src/Dodge/Data/GenWorld.hs

@@ -52,8 +52,7 @@ data PSType
         , _putEndPoint :: Point2
         }
     | PutWall {_pwPoly :: [Point2], _pwWall :: Wall}
-    | PutSlideDr Bool Door Wall (S.Set EdgeObstacle) Float Point2 Point2
---    | PutDoor Color EdgeObstacle WdBl [(Point2, Point2)]
+    | PutSlideDr Bool Door Wall Float Point2 Point2
     | PutDoor Bool WdBl Float Point2A Point2A
     | RandPS (State StdGen PSType)
     | PutForeground ForegroundShape

src/Dodge/Data/PathGraph.hs

@@ -51,8 +51,6 @@ data EdgeObstacle
     | ChasmObstacle
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-switchWallObs :: S.Set EdgeObstacle
-switchWallObs = S.fromList $ WallObstacle <$> [WallBlockVisibility,WallNotAutoOpen]
 
 --instance (ToJSON a, ToJSON b) => ToJSON (Gr a b) where
 --    toEncoding = genericToEncoding defaultOptions