{-# 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 | LabelCluster Int
  deriving (Ord,Eq,Show)

makeLenses ''ClusterStatus
