Revision 5b11f8db htools/Ganeti/HTools/Luxi.hs
| b/htools/Ganeti/HTools/Luxi.hs | ||
|---|---|---|
| 212 | 212 |
cpol <- tryFromObj errmsg obj' "ipolicy" |
| 213 | 213 |
return (ctags, cpol) |
| 214 | 214 |
|
| 215 |
getClusterData _ = Bad $ "Cannot parse cluster info, not a JSON record"
|
|
| 215 |
getClusterData _ = Bad "Cannot parse cluster info, not a JSON record" |
|
| 216 | 216 |
|
| 217 | 217 |
-- | Parses the cluster groups. |
| 218 | 218 |
getGroups :: JSValue -> Result [(String, Group.Group)] |
Also available in: Unified diff