Commit 7af6975a authored by Iustin Pop's avatar Iustin Pop
Browse files

Fix bug in simulation backend



The backend didn't properly set the group index, leaving to a
"corrupted" group list.
Signed-off-by: default avatarIustin Pop <iustin@google.com>
Reviewed-by: default avatarGuido Trotter <ultrotter@google.com>
parent 41b5c85a
......@@ -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
......
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