diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-03-15 16:17:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-15 16:17:01 -0400 |
| commit | 3901089cec96419ab13fe05d4fbc3f040d018672 (patch) | |
| tree | cf16927c3a17d42c05ccab9545557f2d33996255 /Types/StandardGroups.hs | |
| parent | fba52e2651cb8b2f26cdb4f38396cd9f55cf0985 (diff) | |
vicfg: Allows editing preferred content expressions for groups.
This is stored in the git-annex branch, but not yet actually hooked up and
used.
Diffstat (limited to 'Types/StandardGroups.hs')
| -rw-r--r-- | Types/StandardGroups.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |