Kurita.Server

Documentation

saveFile :: String

data KuritaState (p :: k) c

Constructors

KState

Fields

• _ksBracket :: Bracket c (HyperLogLog p) KuritaGame

  The bracket in play.

• _ksSingleMeta :: UTCTime -> [c] -> KuritaGame
• _ksGameMeta :: UTCTime -> Int -> [c] -> KuritaGame

Instances

HasKuritaState (KuritaState p c) (p :: k) c

Defined in Kurita.Server

Methods

kuritaState :: Lens' (KuritaState p c) (KuritaState p c)

ksBracket :: Lens' (KuritaState p c) (Bracket c (HyperLogLog p) KuritaGame)

ksGameMeta :: Lens' (KuritaState p c) (UTCTime -> Int -> [c] -> KuritaGame)

ksSingleMeta :: Lens' (KuritaState p c) (UTCTime -> [c] -> KuritaGame)

class HasKuritaState c p c | c -> p c where

Minimal complete definition

kuritaState

Methods

kuritaState :: Lens' c (KuritaState p c)

ksBracket :: Lens' c (Bracket c (HyperLogLog p) KuritaGame)

ksGameMeta :: Lens' c (UTCTime -> Int -> [c] -> KuritaGame)

ksSingleMeta :: Lens' c (UTCTime -> [c] -> KuritaGame)

Instances

HasKuritaState (KuritaState p c) (p :: k) c

Defined in Kurita.Server

Methods

kuritaState :: Lens' (KuritaState p c) (KuritaState p c)

ksBracket :: Lens' (KuritaState p c) (Bracket c (HyperLogLog p) KuritaGame)

ksGameMeta :: Lens' (KuritaState p c) (UTCTime -> Int -> [c] -> KuritaGame)

ksSingleMeta :: Lens' (KuritaState p c) (UTCTime -> [c] -> KuritaGame)

loadState :: (Reifies p Integer, Ord c, FromJSON c) => (UTCTime -> [c] -> KuritaGame) -> (UTCTime -> Int -> [c] -> KuritaGame) -> [c] -> IO (KuritaState p c)

data ClientData c

Constructors

CData

Fields

• _cdBracket :: Bracket c Int64 ClientGame
• _cdBattleMsg :: !Text
• _cdScoreMsg :: Maybe (([c], [Text]), Text)

Instances

Eq c => Eq (ClientData c)

Defined in Kurita.Server

Methods

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

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

Ord c => Ord (ClientData c)

Defined in Kurita.Server

Methods

compare :: ClientData c -> ClientData c -> Ordering

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

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

(>) :: ClientData c -> ClientData c -> Bool

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

max :: ClientData c -> ClientData c -> ClientData c

min :: ClientData c -> ClientData c -> ClientData c

Show c => Show (ClientData c)

Defined in Kurita.Server

Methods

showsPrec :: Int -> ClientData c -> ShowS

show :: ClientData c -> String

showList :: [ClientData c] -> ShowS

data Core c

Constructors

Core

Fields

• coreWaitUpdate :: IO (ClientData c)
• coreCurrent :: IO (ClientData c)
• coreVote :: c -> Word32 -> IO ()

bracket2ClientData :: (Ord c, ToJSON c) => Bracket c Int64 KuritaGame -> ClientData c

ksToInf :: (Ord c, Reifies p Integer) => KuritaState p c -> Bracket c Int64 KuritaGame

relayCore :: forall c p m. (Ord c, ToJSON c, FromJSON c, Reifies p Integer, MonadIO m) => Proxy p -> (String, Int, String) -> m (Core c)

localCore :: forall c p m. (Ord c, ToJSON c, Reifies p Integer, MonadIO m) => NominalDiffTime -> KuritaState p c -> m (Core c)

kuritaRelay :: (Eq c, ToJSON c, FromJSON c) => (Request -> IO Word32) -> Core c -> Application

kuritaCentral :: forall c p. (Ord c, ToJSON c, FromJSON c, Reifies p Integer) => FilePath -> FilePath -> (ByteString -> Word64) -> BotConfig -> (c -> Text) -> NominalDiffTime -> KuritaState p c -> IO Application