From 3901089cec96419ab13fe05d4fbc3f040d018672 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 15 Mar 2014 16:17:01 -0400 Subject: vicfg: Allows editing preferred content expressions for groups. This is stored in the git-annex branch, but not yet actually hooked up and used. --- Types/StandardGroups.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Types/StandardGroups.hs') diff --git a/Types/StandardGroups.hs b/Types/StandardGroups.hs index 2f5cd4b30..63182d2a1 100644 --- a/Types/StandardGroups.hs +++ b/Types/StandardGroups.hs @@ -8,6 +8,7 @@ module Types.StandardGroups where import Types.Remote (RemoteConfig) +import Types.Group import qualified Data.Map as M import Data.Maybe @@ -27,7 +28,7 @@ data StandardGroup | UnwantedGroup deriving (Eq, Ord, Enum, Bounded, Show) -fromStandardGroup :: StandardGroup -> String +fromStandardGroup :: StandardGroup -> Group fromStandardGroup ClientGroup = "client" fromStandardGroup TransferGroup = "transfer" fromStandardGroup BackupGroup = "backup" @@ -39,7 +40,7 @@ fromStandardGroup ManualGroup = "manual" fromStandardGroup PublicGroup = "public" fromStandardGroup UnwantedGroup = "unwanted" -toStandardGroup :: String -> Maybe StandardGroup +toStandardGroup :: Group -> Maybe StandardGroup toStandardGroup "client" = Just ClientGroup toStandardGroup "transfer" = Just TransferGroup toStandardGroup "backup" = Just BackupGroup -- cgit v1.2.3