Commit 93c6a885 authored by Klaus Aehlig's avatar Klaus Aehlig
Browse files

Set exclusion tags correctly in requested instance


Signed-off-by: default avatarKlaus Aehlig <aehlig@google.com>
Reviewed-by: default avatarJose Lopes <jabolopes@google.com>
parent 2a6f6ef7
......@@ -212,7 +212,7 @@ parseData now body = do
rname <- extrReq "name"
req_nodes <- extrReq "required_nodes"
inew <- parseBaseInstance rname request
let io = snd inew
let io = updateExclTags (extractExTags ctags) $ snd inew
return $ Allocate io req_nodes
| optype == C.iallocatorModeReloc ->
do
......@@ -247,7 +247,8 @@ parseData now body = do
rname <- extrFromReq r "name"
req_nodes <- extrFromReq r "required_nodes"
inew <- parseBaseInstance rname r
let io = snd inew
let io = updateExclTags (extractExTags ctags)
$ snd inew
return (io, req_nodes)) inst_reqs
return $ MultiAllocate prqs
| otherwise -> fail ("Invalid request type '" ++ optype ++ "'")
......
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