@@ -37,7 +37,7 @@ module Wire.API.Team.Feature
37
37
LockStatus (.. ),
38
38
LockStatusValue (.. ),
39
39
IncludeLockStatus (.. ),
40
- TeamFeatureDefaults (.. ),
40
+ DefTeamFeatureStatus (.. ),
41
41
42
42
-- * Swagger
43
43
typeTeamFeatureName ,
@@ -654,44 +654,44 @@ instance Cass.Cql LockStatusValue where
654
654
----------------------------------------------------------------------
655
655
-- defaults
656
656
657
- class TeamFeatureDefaults (a :: TeamFeatureName ) where
657
+ class DefTeamFeatureStatus (a :: TeamFeatureName ) where
658
658
defTeamFeatureStatus :: TeamFeatureStatus 'WithLockStatus a
659
659
660
- instance TeamFeatureDefaults 'TeamFeatureGuestLinks where
660
+ instance DefTeamFeatureStatus 'TeamFeatureGuestLinks where
661
661
defTeamFeatureStatus = TeamFeatureStatusNoConfigAndLockStatus TeamFeatureEnabled Unlocked
662
662
663
- instance TeamFeatureDefaults 'TeamFeatureValidateSAMLEmails where
663
+ instance DefTeamFeatureStatus 'TeamFeatureValidateSAMLEmails where
664
664
defTeamFeatureStatus = TeamFeatureStatusNoConfig TeamFeatureEnabled
665
665
666
- instance TeamFeatureDefaults 'TeamFeatureSndFactorPasswordChallenge where
666
+ instance DefTeamFeatureStatus 'TeamFeatureSndFactorPasswordChallenge where
667
667
defTeamFeatureStatus = TeamFeatureStatusNoConfigAndLockStatus TeamFeatureDisabled Locked
668
668
669
- instance TeamFeatureDefaults 'TeamFeatureSearchVisibilityInbound where
669
+ instance DefTeamFeatureStatus 'TeamFeatureSearchVisibilityInbound where
670
670
defTeamFeatureStatus = TeamFeatureStatusNoConfig TeamFeatureDisabled
671
671
672
- instance TeamFeatureDefaults 'TeamFeatureFileSharing where
672
+ instance DefTeamFeatureStatus 'TeamFeatureFileSharing where
673
673
defTeamFeatureStatus = TeamFeatureStatusNoConfigAndLockStatus TeamFeatureEnabled Unlocked
674
674
675
- instance TeamFeatureDefaults 'TeamFeatureSelfDeletingMessages where
675
+ instance DefTeamFeatureStatus 'TeamFeatureSelfDeletingMessages where
676
676
defTeamFeatureStatus =
677
677
TeamFeatureStatusWithConfigAndLockStatus
678
678
TeamFeatureEnabled
679
679
(TeamFeatureSelfDeletingMessagesConfig 0 )
680
680
Unlocked
681
681
682
- instance TeamFeatureDefaults 'TeamFeatureClassifiedDomains where
682
+ instance DefTeamFeatureStatus 'TeamFeatureClassifiedDomains where
683
683
defTeamFeatureStatus =
684
684
TeamFeatureStatusWithConfig
685
685
TeamFeatureDisabled
686
686
(TeamFeatureClassifiedDomainsConfig [] )
687
687
688
- instance TeamFeatureDefaults 'TeamFeatureAppLock where
688
+ instance DefTeamFeatureStatus 'TeamFeatureAppLock where
689
689
defTeamFeatureStatus =
690
690
TeamFeatureStatusWithConfig
691
691
TeamFeatureEnabled
692
692
(TeamFeatureAppLockConfig (EnforceAppLock False ) 60 )
693
693
694
- instance TeamFeatureDefaults 'TeamFeatureConferenceCalling where
694
+ instance DefTeamFeatureStatus 'TeamFeatureConferenceCalling where
695
695
defTeamFeatureStatus = TeamFeatureStatusNoConfig TeamFeatureEnabled
696
696
697
697
----------------------------------------------------------------------
0 commit comments