@@ -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 ,
@@ -653,44 +653,44 @@ instance Cass.Cql LockStatusValue where
653
653
----------------------------------------------------------------------
654
654
-- defaults
655
655
656
- class TeamFeatureDefaults (a :: TeamFeatureName ) where
656
+ class DefTeamFeatureStatus (a :: TeamFeatureName ) where
657
657
defTeamFeatureStatus :: TeamFeatureStatus 'WithLockStatus a
658
658
659
- instance TeamFeatureDefaults 'TeamFeatureGuestLinks where
659
+ instance DefTeamFeatureStatus 'TeamFeatureGuestLinks where
660
660
defTeamFeatureStatus = TeamFeatureStatusNoConfigAndLockStatus TeamFeatureEnabled Unlocked
661
661
662
- instance TeamFeatureDefaults 'TeamFeatureValidateSAMLEmails where
662
+ instance DefTeamFeatureStatus 'TeamFeatureValidateSAMLEmails where
663
663
defTeamFeatureStatus = TeamFeatureStatusNoConfig TeamFeatureEnabled
664
664
665
- instance TeamFeatureDefaults 'TeamFeatureSndFactorPasswordChallenge where
665
+ instance DefTeamFeatureStatus 'TeamFeatureSndFactorPasswordChallenge where
666
666
defTeamFeatureStatus = TeamFeatureStatusNoConfigAndLockStatus TeamFeatureDisabled Locked
667
667
668
- instance TeamFeatureDefaults 'TeamFeatureSearchVisibilityInbound where
668
+ instance DefTeamFeatureStatus 'TeamFeatureSearchVisibilityInbound where
669
669
defTeamFeatureStatus = TeamFeatureStatusNoConfig TeamFeatureDisabled
670
670
671
- instance TeamFeatureDefaults 'TeamFeatureFileSharing where
671
+ instance DefTeamFeatureStatus 'TeamFeatureFileSharing where
672
672
defTeamFeatureStatus = TeamFeatureStatusNoConfigAndLockStatus TeamFeatureEnabled Unlocked
673
673
674
- instance TeamFeatureDefaults 'TeamFeatureSelfDeletingMessages where
674
+ instance DefTeamFeatureStatus 'TeamFeatureSelfDeletingMessages where
675
675
defTeamFeatureStatus =
676
676
TeamFeatureStatusWithConfigAndLockStatus
677
677
TeamFeatureEnabled
678
678
(TeamFeatureSelfDeletingMessagesConfig 0 )
679
679
Unlocked
680
680
681
- instance TeamFeatureDefaults 'TeamFeatureClassifiedDomains where
681
+ instance DefTeamFeatureStatus 'TeamFeatureClassifiedDomains where
682
682
defTeamFeatureStatus =
683
683
TeamFeatureStatusWithConfig
684
684
TeamFeatureDisabled
685
685
(TeamFeatureClassifiedDomainsConfig [] )
686
686
687
- instance TeamFeatureDefaults 'TeamFeatureAppLock where
687
+ instance DefTeamFeatureStatus 'TeamFeatureAppLock where
688
688
defTeamFeatureStatus =
689
689
TeamFeatureStatusWithConfig
690
690
TeamFeatureEnabled
691
691
(TeamFeatureAppLockConfig (EnforceAppLock False ) 60 )
692
692
693
- instance TeamFeatureDefaults 'TeamFeatureConferenceCalling where
693
+ instance DefTeamFeatureStatus 'TeamFeatureConferenceCalling where
694
694
defTeamFeatureStatus = TeamFeatureStatusNoConfig TeamFeatureEnabled
695
695
696
696
----------------------------------------------------------------------
0 commit comments