mattermost-api 50200.12.0 → 50200.13.0
raw patch · 3 files changed
+11/−1 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Network.Mattermost.Lenses: wepParentIdL :: Lens' WEData (Maybe PostId)
+ Network.Mattermost.WebSocket.Types: [wepParentId] :: WEData -> Maybe PostId
- Network.Mattermost.WebSocket.Types: WEData :: Maybe ChannelId -> Maybe TeamId -> Maybe Text -> Maybe UserId -> Maybe User -> Maybe Text -> Maybe Post -> Maybe Text -> Maybe Reaction -> Maybe (Set UserId) -> Maybe (Seq Preference) -> Maybe ChannelMember -> WEData
+ Network.Mattermost.WebSocket.Types: WEData :: Maybe ChannelId -> Maybe TeamId -> Maybe Text -> Maybe UserId -> Maybe PostId -> Maybe User -> Maybe Text -> Maybe Post -> Maybe Text -> Maybe Reaction -> Maybe (Set UserId) -> Maybe (Seq Preference) -> Maybe ChannelMember -> WEData
Files
CHANGELOG.md view
@@ -1,4 +1,11 @@ +50200.13.0+==========++API changes:+ * Added a `wepParentId` field to `WEData` and parsed `parent_id` in its+ JSON representation.+ 50200.12.0 ==========
mattermost-api.cabal view
@@ -1,5 +1,5 @@ name: mattermost-api-version: 50200.12.0+version: 50200.13.0 synopsis: Client API for Mattermost chat system description: Client API for Mattermost chat system. Mattermost is a
src/Network/Mattermost/WebSocket/Types.hs view
@@ -203,6 +203,7 @@ , wepTeamId :: Maybe TeamId , wepSenderName :: Maybe Text , wepUserId :: Maybe UserId+ , wepParentId :: Maybe PostId , wepUser :: Maybe User , wepChannelDisplayName :: Maybe Text , wepPost :: Maybe Post@@ -219,6 +220,7 @@ wepTeamId <- maybeFail (o .: "team_id") wepSenderName <- o .:? "sender_name" wepUserId <- o .:? "user_id"+ wepParentId <- nullable (o .: "parent_id") wepUser <- o .:? "user" wepChannelDisplayName <- o .:? "channel_name" wepPost <- mapM fromValueString =<< o .:? "post"@@ -235,6 +237,7 @@ , "team_id" .= wepTeamId , "sender_name" .= wepSenderName , "user_id" .= wepUserId+ , "parent_id" .= wepParentId , "channel_name" .= wepChannelDisplayName , "post" .= toValueString wepPost , "reaction" .= wepReaction