"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "libs/galley-types/src/Galley/Types/Teams.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).

Teams.hs  (wire-server-2020-06-10):Teams.hs  (wire-server-2020-06-19)
skipping to change at line 339 skipping to change at line 339
] ]
roleHiddenPerms RoleMember = roleHiddenPerms RoleMember =
(roleHiddenPerms RoleExternalPartner <>) $ (roleHiddenPerms RoleExternalPartner <>) $
Set.fromList [ViewSameTeamEmails] Set.fromList [ViewSameTeamEmails]
roleHiddenPerms RoleExternalPartner = roleHiddenPerms RoleExternalPartner =
Set.fromList Set.fromList
[ ViewTeamFeature TeamFeatureLegalHold, [ ViewTeamFeature TeamFeatureLegalHold,
ViewTeamFeature TeamFeatureSSO, ViewTeamFeature TeamFeatureSSO,
ViewTeamFeature TeamFeatureSearchVisibility, ViewTeamFeature TeamFeatureSearchVisibility,
ViewTeamFeature TeamFeatureValidateSAMLEmails, ViewTeamFeature TeamFeatureValidateSAMLEmails,
ViewTeamFeature TeamFeatureDigitalSignatures,
ViewLegalHoldUserSettings, ViewLegalHoldUserSettings,
ViewTeamSearchVisibility ViewTeamSearchVisibility
] ]
-- | See Note [hidden team roles] -- | See Note [hidden team roles]
class IsPerm perm where class IsPerm perm where
roleHasPerm :: Role -> perm -> Bool roleHasPerm :: Role -> perm -> Bool
roleGrantsPerm :: Role -> perm -> Bool roleGrantsPerm :: Role -> perm -> Bool
hasPermission :: TeamMember -> perm -> Bool hasPermission :: TeamMember -> perm -> Bool
hasPermission tm perm = maybe False (`roleHasPerm` perm) . permissionsRole $ t m ^. permissions hasPermission tm perm = maybe False (`roleHasPerm` perm) . permissionsRole $ t m ^. permissions
 End of changes. 1 change blocks. 
0 lines changed or deleted 1 lines changed or added

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