17 lines
355 B
Haskell
17 lines
355 B
Haskell
{-# 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
|