From 7af6975a75d0f53821cb0ea444bea69f46047ffb Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Tue, 1 Feb 2011 15:31:12 +0100
Subject: [PATCH] Fix bug in simulation backend
The backend didn't properly set the group index, leaving to a
"corrupted" group list.
Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>
---
Ganeti/HTools/Simu.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/Ganeti/HTools/Simu.hs b/Ganeti/HTools/Simu.hs
index 1515bd0db..a763076f2 100644
--- a/Ganeti/HTools/Simu.hs
+++ b/Ganeti/HTools/Simu.hs
@@ -6,7 +6,7 @@ This module holds the code for parsing a cluster description.
{-
-Copyright (C) 2009, 2010 Google Inc.
+Copyright (C) 2009, 2010, 2011 Google Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@@ -70,7 +70,7 @@ createGroup grpIndex spec = do
) [1..ncount]
grp = Group.create (printf "group-%02d" grpIndex)
(printf "fake-uuid-%02d" grpIndex) apol
- return (grp, nodes)
+ return (Group.setIdx grp grpIndex, nodes)
-- | Builds the cluster data from node\/instance files.
parseData :: [String] -- ^ Cluster description in text format
--
GitLab