[PATCH master 9/9] hail: stop using old-style 'nodes' key

[Iustin Pop]

---
 htools/Ganeti/HTools/IAlloc.hs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/htools/Ganeti/HTools/IAlloc.hs b/htools/Ganeti/HTools/IAlloc.hs
index 091db9d..20c4895 100644
--- a/htools/Ganeti/HTools/IAlloc.hs
+++ b/htools/Ganeti/HTools/IAlloc.hs
@@ -221,5 +221,5 @@ formatResponse success info rq elems =
     let
         e_success = ("success", JSBool success)
         e_info = ("info", JSString . toJSString $ info)
-        e_nodes = ("nodes", formatRVal rq elems)
-    in encodeStrict $ makeObj [e_success, e_info, e_nodes]
+        e_result = ("result", formatRVal rq elems)
+    in encodeStrict $ makeObj [e_success, e_info, e_result]
-- 
1.7.3.1