18 lines
376 B
Haskell
18 lines
376 B
Haskell
{-# 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
|