Work on placements/room generation

2025-08-22 13:42:51 +01:00
parent e7b52f4487
commit f641805845
14 changed files with 294 additions and 596 deletions
@@ -7,8 +7,7 @@ import Control.Lens
 import qualified Data.Set as S

 data ClusterStatus = ClusterStatus
-    { _csName :: String
-    , _csLinks :: S.Set ClusterLink
+    { _csLinks :: S.Set ClusterLink
    }

 data ClusterLink = OnwardCluster | SideCluster | LabelCluster Int