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 <>
Reviewed-by: default avatarBalazs Lecz <>
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