{-# 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