diff options
Diffstat (limited to 'Types')
-rw-r--r-- | Types/StandardGroups.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Types/StandardGroups.hs b/Types/StandardGroups.hs index d95f28ee1..2f5cd4b30 100644 --- a/Types/StandardGroups.hs +++ b/Types/StandardGroups.hs @@ -72,6 +72,10 @@ associatedDirectory (Just c) PublicGroup = Just $ associatedDirectory Nothing PublicGroup = Just "public" associatedDirectory _ _ = Nothing +specialRemoteOnly :: StandardGroup -> Bool +specialRemoteOnly PublicGroup = True +specialRemoteOnly _ = False + {- See doc/preferred_content.mdwn for explanations of these expressions. -} preferredContent :: StandardGroup -> PreferredContentExpression preferredContent ClientGroup = lastResort $ |