Revision c8b199db src/Ganeti/HTools/Group.hs
b/src/Ganeti/HTools/Group.hs | ||
---|---|---|
45 | 45 |
, uuid :: T.GroupID -- ^ The UUID of the group |
46 | 46 |
, idx :: T.Gdx -- ^ Internal index for book-keeping |
47 | 47 |
, allocPolicy :: T.AllocPolicy -- ^ The allocation policy for this group |
48 |
, networks :: [T.NetworkID] -- ^ The networks connected to this group |
|
48 | 49 |
, iPolicy :: T.IPolicy -- ^ The instance policy for this group |
49 | 50 |
, allTags :: [String] -- ^ The tags for this group |
50 | 51 |
} deriving (Show, Eq) |
... | ... | |
67 | 68 |
-- * Initialization functions |
68 | 69 |
|
69 | 70 |
-- | Create a new group. |
70 |
create :: String -> T.GroupID -> T.AllocPolicy -> T.IPolicy -> [String] -> Group |
|
71 |
create name_init id_init apol_init ipol_init tags_init = |
|
71 |
create :: String -- ^ The node name |
|
72 |
-> T.GroupID -- ^ The UUID of the group |
|
73 |
-> T.AllocPolicy -- ^ The allocation policy for this group |
|
74 |
-> [T.NetworkID] -- ^ The networks connected to this group |
|
75 |
-> T.IPolicy -- ^ The instance policy for this group |
|
76 |
-> [String] -- ^ The tags for this group |
|
77 |
-> Group |
|
78 |
create name_init id_init apol_init nets_init ipol_init tags_init = |
|
72 | 79 |
Group { name = name_init |
73 | 80 |
, uuid = id_init |
74 | 81 |
, allocPolicy = apol_init |
82 |
, networks = nets_init |
|
75 | 83 |
, iPolicy = ipol_init |
76 | 84 |
, allTags = tags_init |
77 | 85 |
, idx = -1 |
Also available in: Unified diff