{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}

module Dodge.Data.RoomCluster where

import Control.Lens
import qualified Data.Set as S

newtype ClusterStatus = ClusterStatus
    { _csLinks :: S.Set ClusterLink
    }

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

makeLenses ''ClusterStatus