Add RoomCluster ideas

src/Dodge/RoomCluster/Data.hs

@@ -0,0 +1,15 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.RoomCluster.Data where
+import qualified Data.Set as S
+import Control.Lens
+
+data ClusterStatus = ClusterStatus
+    { _csName :: String
+    , _csLinks :: S.Set ClusterLink
+    }
+
+data ClusterLink = OnwardCluster | SideCluster
+  deriving (Ord,Eq,Enum,Show)
+
+makeLenses ''ClusterStatus