battleplace 0.1.0.3 → 0.1.0.4
raw patch · 3 files changed
+9/−1 lines, 3 files
Files
- BattlePlace/WebApi.hs +4/−0
- BattlePlace/WebApi/Types.hs +4/−0
- battleplace.cabal +1/−1
BattlePlace/WebApi.hs view
@@ -85,6 +85,7 @@ { matchRequest_teamSizes :: !(VU.Vector MatchTeamSize) , matchRequest_maxMatchTime :: {-# UNPACK #-} !Int , matchRequest_matchTag :: !(Maybe MatchTag)+ , matchRequest_serverTag :: !(Maybe ServerTag) , matchRequest_info :: !(Maybe MatchPlayerInfo) } deriving Generic instance J.FromJSON MatchRequest where@@ -167,6 +168,7 @@ data ServerMatchRequest = ServerMatchRequest { serverMatchRequest_projectId :: {-# UNPACK #-} !ProjectId , serverMatchRequest_projectServerToken :: !ProjectServerToken+ , serverMatchRequest_serverTag :: !(Maybe ServerTag) , serverMatchRequest_maxSessionsCount :: {-# UNPACK #-} !Int , serverMatchRequest_name :: !T.Text , serverMatchRequest_info :: !MatchServerInfo@@ -203,6 +205,8 @@ { serverSession_sessionId :: !SessionId , serverSession_serverSessionToken :: !(InternalToken ServerSessionToken) , serverSession_teams :: !(V.Vector MatchTeam)+ , serverSession_matchTag :: !MatchTag+ , serverSession_serverTag :: !ServerTag } deriving Generic instance J.FromJSON ServerSession where parseJSON = J.genericParseJSON jsonOptions
BattlePlace/WebApi/Types.hs view
@@ -19,6 +19,7 @@ , ProjectServerToken(..) , MatchTeamSize , MatchTag(..)+ , ServerTag(..) , MatchPlayerInfo(..) , MatchToken(..) , MatchFailureReason(..)@@ -153,6 +154,9 @@ -- | Match tag in match request. newtype MatchTag = MatchTag T.Text deriving (Eq, Hashable, Semigroup, Monoid, J.FromJSON, J.ToJSON)++-- | Server tag in match request.+newtype ServerTag = ServerTag T.Text deriving (Eq, Hashable, Semigroup, Monoid, J.FromJSON, J.ToJSON) -- | Opaque player info. newtype MatchPlayerInfo = MatchPlayerInfo T.Text deriving (Semigroup, Monoid, J.FromJSON, J.ToJSON)
battleplace.cabal view
@@ -1,5 +1,5 @@ name: battleplace-version: 0.1.0.3+version: 0.1.0.4 synopsis: Core definitions for BattlePlace.io service description: Core definitions for BattlePlace.io service license: MIT