diff --git a/src/Ganeti/HTools/Backend/Rapi.hs b/src/Ganeti/HTools/Backend/Rapi.hs index ffc6dc2f9cae945e354afd94294b6a0cb123252b..ab495f1c93f20740049e5c327c440679918a478a 100644 --- a/src/Ganeti/HTools/Backend/Rapi.hs +++ b/src/Ganeti/HTools/Backend/Rapi.hs @@ -166,8 +166,10 @@ parseNode ktg a = do dtotal <- extract "dtotal" dfree <- extract "dfree" ctotal <- extract "ctotal" - return $ Node.create name mtotal mnode mfree - dtotal dfree ctotal False spindles guuid' + tags <- extract "tags" + return . flip Node.setNodeTags tags $ + Node.create name mtotal mnode mfree dtotal dfree ctotal False + spindles guuid' return (name, node) -- | Construct a group from a JSON object.