live-test: support multi-group clusters

[ganeti-local] / hscan.hs

diff --git a/hscan.hs b/hscan.hs
index 5c8dbda..e99efeb 100644 (file)
--- a/hscan.hs
+++ b/hscan.hs
@@ -93,9 +93,9 @@ fixSlash = map (\x -> if x == '/' then '_' else x)
 processData :: Result (Group.List, Node.List, Instance.List, [String])
             -> Result (Group.List, Node.List, Instance.List, String)
 processData input_data = do
-  (gl, nl, il, _) <- input_data >>= Loader.mergeData [] [] []
+  (gl, nl, il, ctags) <- input_data >>= Loader.mergeData [] [] []
   let (_, fix_nl) = Loader.checkData nl il
-      adata = serializeCluster gl nl il
+      adata = serializeCluster gl nl il ctags
   return (gl, fix_nl, il, adata)
 
 -- | Writes cluster data out