Revision d5072e4c htools/Ganeti/HTools/Rapi.hs
| b/htools/Ganeti/HTools/Rapi.hs | ||
|---|---|---|
| 89 | 89 |
|
| 90 | 90 |
getFakeGroups :: Result [(String, Group.Group)] |
| 91 | 91 |
getFakeGroups = |
| 92 |
return $ [(defaultGroupID,
|
|
| 93 |
Group.create "default" defaultGroupID AllocPreferred)]
|
|
| 92 |
return [(defaultGroupID, |
|
| 93 |
Group.create "default" defaultGroupID AllocPreferred)] |
|
| 94 | 94 |
|
| 95 | 95 |
-- | Construct an instance from a JSON object. |
| 96 | 96 |
parseInstance :: NameAssoc |
Also available in: Unified diff