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