Commit 2ddabf4f authored by Iustin Pop's avatar Iustin Pop
Browse files

Rapi: read the allocation policy from the cluster


Signed-off-by: default avatarIustin Pop <iustin@google.com>
Reviewed-by: default avatarBalazs Lecz <leczb@google.com>
parent b2ba4669
......@@ -131,7 +131,8 @@ parseGroup a = do
name <- tryFromObj "Parsing new group" a "name"
let extract s = tryFromObj ("Group '" ++ name ++ "'") a s
uuid <- extract "uuid"
return (uuid, Group.create name uuid AllocPreferred)
apol <- extract "alloc_policy"
return (uuid, Group.create name uuid apol)
-- | Loads the raw cluster data from an URL.
readData :: String -- ^ Cluster or URL to use as source
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment