Cleanup door placement/auto path generation

2025-10-24 20:51:38 +01:00
parent b0d519c69d
commit f94b914ceb
9 changed files with 83 additions and 155 deletions
@@ -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