Make Rapi backed set node tags correctly

[ganeti-local] / src / Ganeti / HTools / Backend / Rapi.hs

diff --git a/src/Ganeti/HTools/Backend/Rapi.hs b/src/Ganeti/HTools/Backend/Rapi.hs
index ffc6dc2..ab495f1 100644 (file)
--- 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.