vicfg: Allows editing preferred content expressions for groups.
This is stored in the git-annex branch, but not yet actually hooked up and used.
This commit is contained in:
parent
431d805a96
commit
417aea25be
6 changed files with 124 additions and 52 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue