Kurita.Protocol

Documentation

slHead :: SortedList a -> a

data PlayedGame c s m

Who played in a game, the score they got, sorted in score order.

Constructors

PlayedGame

Fields

• _gameExtra :: !m
• _gameSorted :: !(SortedList (s, c))

Instances

Functor (PlayedGame c s)

Defined in Kurita.Protocol

Methods

fmap :: (a -> b) -> PlayedGame c s a -> PlayedGame c s b

(<$) :: a -> PlayedGame c s b -> PlayedGame c s a

(Eq m, Eq s, Eq c) => Eq (PlayedGame c s m)

Defined in Kurita.Protocol

Methods

(==) :: PlayedGame c s m -> PlayedGame c s m -> Bool

(/=) :: PlayedGame c s m -> PlayedGame c s m -> Bool

(Ord m, Ord s, Ord c) => Ord (PlayedGame c s m)

Defined in Kurita.Protocol

Methods

compare :: PlayedGame c s m -> PlayedGame c s m -> Ordering

(<) :: PlayedGame c s m -> PlayedGame c s m -> Bool

(<=) :: PlayedGame c s m -> PlayedGame c s m -> Bool

(>) :: PlayedGame c s m -> PlayedGame c s m -> Bool

(>=) :: PlayedGame c s m -> PlayedGame c s m -> Bool

max :: PlayedGame c s m -> PlayedGame c s m -> PlayedGame c s m

min :: PlayedGame c s m -> PlayedGame c s m -> PlayedGame c s m

(Show m, Show s, Show c) => Show (PlayedGame c s m)

Defined in Kurita.Protocol

Methods

showsPrec :: Int -> PlayedGame c s m -> ShowS

show :: PlayedGame c s m -> String

showList :: [PlayedGame c s m] -> ShowS

(FromJSON c, FromJSON s, FromJSON m, Ord c, Ord s) => FromJSON (PlayedGame c s m)

Defined in Kurita.Protocol

Methods

parseJSON :: Value -> Parser (PlayedGame c s m)

parseJSONList :: Value -> Parser [PlayedGame c s m]

(ToJSON c, ToJSON s, ToJSON m) => ToJSON (PlayedGame c s m)

Defined in Kurita.Protocol

Methods

toJSON :: PlayedGame c s m -> Value

toEncoding :: PlayedGame c s m -> Encoding

toJSONList :: [PlayedGame c s m] -> Value

toEncodingList :: [PlayedGame c s m] -> Encoding

gameSorted :: forall c s m c s. Lens (PlayedGame c s m) (PlayedGame c s m) (SortedList (s, c)) (SortedList (s, c))

gameExtra :: forall c s m m. Lens (PlayedGame c s m) (PlayedGame c s m) m m

data Bracket c s m

Constructors

Bracket

Fields

• _bPlayed :: ![[PlayedGame c s m]]

  list of rounds, recent first, containing played games, then which won. We append new games to the end of the first list. If we're playing a round, the first list in this must be for it.

• _bUpcoming :: ![[c]]

  a list of the list of competitors that are scheduled for a game in this round. who have upcoming matches in this round.

• _bCurrent :: !(Maybe (PlayedGame c s m))

  The current game, if Nothing the tournament is over.

Instances

Functor (Bracket c s)

Defined in Kurita.Protocol

Methods

fmap :: (a -> b) -> Bracket c s a -> Bracket c s b

(<$) :: a -> Bracket c s b -> Bracket c s a

(Eq m, Eq s, Eq c) => Eq (Bracket c s m)

Defined in Kurita.Protocol

Methods

(==) :: Bracket c s m -> Bracket c s m -> Bool

(/=) :: Bracket c s m -> Bracket c s m -> Bool

(Ord m, Ord s, Ord c) => Ord (Bracket c s m)

Defined in Kurita.Protocol

Methods

compare :: Bracket c s m -> Bracket c s m -> Ordering

(<) :: Bracket c s m -> Bracket c s m -> Bool

(<=) :: Bracket c s m -> Bracket c s m -> Bool

(>) :: Bracket c s m -> Bracket c s m -> Bool

(>=) :: Bracket c s m -> Bracket c s m -> Bool

max :: Bracket c s m -> Bracket c s m -> Bracket c s m

min :: Bracket c s m -> Bracket c s m -> Bracket c s m

(Show m, Show s, Show c) => Show (Bracket c s m)

Defined in Kurita.Protocol

Methods

showsPrec :: Int -> Bracket c s m -> ShowS

show :: Bracket c s m -> String

showList :: [Bracket c s m] -> ShowS

(FromJSON c, FromJSON s, FromJSON m, Ord c, Ord s) => FromJSON (Bracket c s m)

Defined in Kurita.Protocol

Methods

parseJSON :: Value -> Parser (Bracket c s m)

parseJSONList :: Value -> Parser [Bracket c s m]

(ToJSON c, ToJSON s, ToJSON m) => ToJSON (Bracket c s m)

Defined in Kurita.Protocol

Methods

toJSON :: Bracket c s m -> Value

toEncoding :: Bracket c s m -> Encoding

toJSONList :: [Bracket c s m] -> Value

toEncodingList :: [Bracket c s m] -> Encoding

HasBracket (Bracket c s m) c s m

Defined in Kurita.Protocol

Methods

bracket :: Lens' (Bracket c s m) (Bracket c s m)

bCurrent :: Lens' (Bracket c s m) (Maybe (PlayedGame c s m))

bPlayed :: Lens' (Bracket c s m) [[PlayedGame c s m]]

bUpcoming :: Lens' (Bracket c s m) [[c]]

class HasBracket c c s m | c -> c s m where

Minimal complete definition

bracket

Methods

bracket :: Lens' c (Bracket c s m)

bCurrent :: Lens' c (Maybe (PlayedGame c s m))

bPlayed :: Lens' c [[PlayedGame c s m]]

bUpcoming :: Lens' c [[c]]

Instances

HasBracket (Bracket c s m) c s m

Defined in Kurita.Protocol

Methods

bracket :: Lens' (Bracket c s m) (Bracket c s m)

bCurrent :: Lens' (Bracket c s m) (Maybe (PlayedGame c s m))

bPlayed :: Lens' (Bracket c s m) [[PlayedGame c s m]]

bUpcoming :: Lens' (Bracket c s m) [[c]]

data KuritaGame

Constructors

KGame

Fields

• _kgEndTime :: !UTCTime
• _kgCommentary :: [(UTCTime, Text)]

Instances

Eq KuritaGame

Defined in Kurita.Protocol

Methods

(==) :: KuritaGame -> KuritaGame -> Bool

(/=) :: KuritaGame -> KuritaGame -> Bool

Ord KuritaGame

Defined in Kurita.Protocol

Methods

compare :: KuritaGame -> KuritaGame -> Ordering

(<) :: KuritaGame -> KuritaGame -> Bool

(<=) :: KuritaGame -> KuritaGame -> Bool

(>) :: KuritaGame -> KuritaGame -> Bool

(>=) :: KuritaGame -> KuritaGame -> Bool

max :: KuritaGame -> KuritaGame -> KuritaGame

min :: KuritaGame -> KuritaGame -> KuritaGame

Show KuritaGame

Defined in Kurita.Protocol

Methods

showsPrec :: Int -> KuritaGame -> ShowS

show :: KuritaGame -> String

showList :: [KuritaGame] -> ShowS

FromJSON KuritaGame

Defined in Kurita.Protocol

Methods

parseJSON :: Value -> Parser KuritaGame

parseJSONList :: Value -> Parser [KuritaGame]

ToJSON KuritaGame

Defined in Kurita.Protocol

Methods

toJSON :: KuritaGame -> Value

toEncoding :: KuritaGame -> Encoding

toJSONList :: [KuritaGame] -> Value

toEncodingList :: [KuritaGame] -> Encoding

kgEndTime :: Lens' KuritaGame UTCTime

kgCommentary :: Lens' KuritaGame [(UTCTime, Text)]

changeVoteType :: (Ord c, Ord s2) => (s1 -> s2) -> Bracket c s1 a -> Bracket c s2 a

seedBracket :: (Ord c, Ord s, Monoid s) => ([c] -> m) -> (Int -> [c] -> m) -> [c] -> Bracket c s m

finishGame :: (Ord c, Ord s, Monoid s) => ([c] -> m) -> (Int -> [c] -> m) -> Bracket c s m -> Bracket c s m

Finishes the current game and start the next, generating a new round if need be, or finishing the game if this was the last round.

upToGame :: (Ord c, Ord s, Monoid s) => ([c] -> m) -> [c] -> PlayedGame c s m

addScores :: (Ord c, Ord s, Semigroup s) => [(c, s)] -> Bracket c s a -> Bracket c s a

addScore :: (Ord c, Reifies p Integer) => c -> Word32 -> Bracket c (HyperLogLog p) a -> Bracket c (HyperLogLog p) a

data ClientGame

Constructors

CGame

Fields

• _cgEndTime :: !UTCTime
• _cgCommentary :: [Text]

Instances

Eq ClientGame

Defined in Kurita.Protocol

Methods

(==) :: ClientGame -> ClientGame -> Bool

(/=) :: ClientGame -> ClientGame -> Bool

Ord ClientGame

Defined in Kurita.Protocol

Methods

compare :: ClientGame -> ClientGame -> Ordering

(<) :: ClientGame -> ClientGame -> Bool

(<=) :: ClientGame -> ClientGame -> Bool

(>) :: ClientGame -> ClientGame -> Bool

(>=) :: ClientGame -> ClientGame -> Bool

max :: ClientGame -> ClientGame -> ClientGame

min :: ClientGame -> ClientGame -> ClientGame

Show ClientGame

Defined in Kurita.Protocol

Methods

showsPrec :: Int -> ClientGame -> ShowS

show :: ClientGame -> String

showList :: [ClientGame] -> ShowS

FromJSON ClientGame

Defined in Kurita.Protocol

Methods

parseJSON :: Value -> Parser ClientGame

parseJSONList :: Value -> Parser [ClientGame]

ToJSON ClientGame

Defined in Kurita.Protocol

Methods

toJSON :: ClientGame -> Value

toEncoding :: ClientGame -> Encoding

toJSONList :: [ClientGame] -> Value

toEncodingList :: [ClientGame] -> Encoding

k2cGame :: KuritaGame -> ClientGame

data TDown c

Constructors

BattleStart

Fields

• tdBrackets :: Bracket c Int64 ClientGame

ScoreUpdate [(c, Int64)]

Instances

Show c => Show (TDown c)

Defined in Kurita.Protocol

Methods

showsPrec :: Int -> TDown c -> ShowS

show :: TDown c -> String

showList :: [TDown c] -> ShowS

(Ord c, FromJSON c) => FromJSON (TDown c)

Defined in Kurita.Protocol

Methods

parseJSON :: Value -> Parser (TDown c)

parseJSONList :: Value -> Parser [TDown c]

ToJSON c => ToJSON (TDown c)

Defined in Kurita.Protocol

Methods

toJSON :: TDown c -> Value

toEncoding :: TDown c -> Encoding

toJSONList :: [TDown c] -> Value

toEncodingList :: [TDown c] -> Encoding

data TUp c

Constructors

Vote c

Instances

Eq c => Eq (TUp c)

Defined in Kurita.Protocol

Methods

(==) :: TUp c -> TUp c -> Bool

(/=) :: TUp c -> TUp c -> Bool

Ord c => Ord (TUp c)

Defined in Kurita.Protocol

Methods

compare :: TUp c -> TUp c -> Ordering

(<) :: TUp c -> TUp c -> Bool

(<=) :: TUp c -> TUp c -> Bool

(>) :: TUp c -> TUp c -> Bool

(>=) :: TUp c -> TUp c -> Bool

max :: TUp c -> TUp c -> TUp c

min :: TUp c -> TUp c -> TUp c

Show c => Show (TUp c)

Defined in Kurita.Protocol

Methods

showsPrec :: Int -> TUp c -> ShowS

show :: TUp c -> String

showList :: [TUp c] -> ShowS

FromJSON c => FromJSON (TUp c)

Defined in Kurita.Protocol

Methods

parseJSON :: Value -> Parser (TUp c)

parseJSONList :: Value -> Parser [TUp c]

ToJSON c => ToJSON (TUp c)

Defined in Kurita.Protocol

Methods

toJSON :: TUp c -> Value

toEncoding :: TUp c -> Encoding

toJSONList :: [TUp c] -> Value

toEncodingList :: [TUp c] -> Encoding

data RUp hllsz c

Constructors

Votes [(c, HyperLogLog hllsz)]

Instances

Show c => Show (RUp hllsz c)

Defined in Kurita.Protocol

Methods

showsPrec :: Int -> RUp hllsz c -> ShowS

show :: RUp hllsz c -> String

showList :: [RUp hllsz c] -> ShowS

(Reifies hllsz Integer, FromJSON c) => FromJSON (RUp hllsz c)

Defined in Kurita.Protocol

Methods

parseJSON :: Value -> Parser (RUp hllsz c)

parseJSONList :: Value -> Parser [RUp hllsz c]

ToJSON c => ToJSON (RUp hllsz c)

Defined in Kurita.Protocol

Methods

toJSON :: RUp hllsz c -> Value

toEncoding :: RUp hllsz c -> Encoding

toJSONList :: [RUp hllsz c] -> Value

toEncodingList :: [RUp hllsz c] -> Encoding

decodeHLL :: Reifies p Integer => Value -> Parser (HyperLogLog p)

Orphan instances

Reifies p Integer => Ord (HyperLogLog p)

Methods

compare :: HyperLogLog p -> HyperLogLog p -> Ordering

(<) :: HyperLogLog p -> HyperLogLog p -> Bool

(<=) :: HyperLogLog p -> HyperLogLog p -> Bool

(>) :: HyperLogLog p -> HyperLogLog p -> Bool

(>=) :: HyperLogLog p -> HyperLogLog p -> Bool

max :: HyperLogLog p -> HyperLogLog p -> HyperLogLog p

min :: HyperLogLog p -> HyperLogLog p -> HyperLogLog p