BROKEN partial redo of room tree composition

2022-06-09 19:17:27 +01:00
parent d8174c7ccc
commit 8fb80f9691
7 changed files with 68 additions and 65 deletions
@@ -9,7 +9,7 @@ data ClusterStatus = ClusterStatus
    , _csLinks :: S.Set ClusterLink
    }

-data ClusterLink = OnwardCluster | SideCluster
-  deriving (Ord,Eq,Enum,Show)
+data ClusterLink = OnwardCluster | SideCluster | LabelCluster Int
+  deriving (Ord,Eq,Show)

 makeLenses ''ClusterStatus