"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "libs/wire-api/src/Wire/API/Conversation/Member.hs" between
wire-server-2020-06-10.tar.gz and wire-server-2020-06-19.tar.gz

About: Wire (server) offers end-to-end encrypted messaging, file-sharing, video and voice calls, and guest rooms for external communication (back-end server).

Member.hs  (wire-server-2020-06-10):Member.hs  (wire-server-2020-06-19)
skipping to change at line 86 skipping to change at line 86
instance FromJSON ConvMembers where instance FromJSON ConvMembers where
parseJSON = withObject "conv-members" $ \o -> parseJSON = withObject "conv-members" $ \o ->
ConvMembers ConvMembers
<$> o .: "self" <$> o .: "self"
<*> o .: "others" <*> o .: "others"
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Members -- Members
data Member = Member data Member = Member
{ memId :: UserId, { memId :: OpaqueUserId,
memService :: Maybe ServiceRef, memService :: Maybe ServiceRef,
-- | DEPRECATED, remove it once enough clients use `memOtrMutedStatus` -- | DEPRECATED, remove it once enough clients use `memOtrMutedStatus`
memOtrMuted :: Bool, memOtrMuted :: Bool,
memOtrMutedStatus :: Maybe MutedStatus, memOtrMutedStatus :: Maybe MutedStatus,
memOtrMutedRef :: Maybe Text, memOtrMutedRef :: Maybe Text,
memOtrArchived :: Bool, memOtrArchived :: Bool,
memOtrArchivedRef :: Maybe Text, memOtrArchivedRef :: Maybe Text,
memHidden :: Bool, memHidden :: Bool,
memHiddenRef :: Maybe Text, memHiddenRef :: Maybe Text,
memConvRoleName :: RoleName memConvRoleName :: RoleName
skipping to change at line 168 skipping to change at line 168
<*> o .:? "hidden_ref" <*> o .:? "hidden_ref"
<*> o .:? "conversation_role" .!= roleNameWireAdmin <*> o .:? "conversation_role" .!= roleNameWireAdmin
-- | The semantics of the possible different values is entirely up to clients, -- | The semantics of the possible different values is entirely up to clients,
-- the server will not interpret this value in any way. -- the server will not interpret this value in any way.
newtype MutedStatus = MutedStatus {fromMutedStatus :: Int32} newtype MutedStatus = MutedStatus {fromMutedStatus :: Int32}
deriving stock (Eq, Ord, Show, Generic) deriving stock (Eq, Ord, Show, Generic)
deriving newtype (Num, FromJSON, ToJSON, Arbitrary) deriving newtype (Num, FromJSON, ToJSON, Arbitrary)
data OtherMember = OtherMember data OtherMember = OtherMember
{ omId :: UserId, { omId :: OpaqueUserId,
omService :: Maybe ServiceRef, omService :: Maybe ServiceRef,
omConvRoleName :: RoleName omConvRoleName :: RoleName
} }
deriving stock (Eq, Show, Generic) deriving stock (Eq, Show, Generic)
deriving (Arbitrary) via (GenericUniform OtherMember) deriving (Arbitrary) via (GenericUniform OtherMember)
instance Ord OtherMember where instance Ord OtherMember where
compare a b = compare (omId a) (omId b) compare a b = compare (omId a) (omId b)
modelOtherMember :: Doc.Model modelOtherMember :: Doc.Model
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)