Cleanup

src/Dodge/Data/RoomCluster.hs

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