[PATCH stable-2.10 01/10] hspace: optionally print allocatable nodes

['Klaus Aehlig' via ganeti-devel]

...when verbosity level is high enough.

Signed-off-by: Klaus Aehlig <aeh...@google.com>
---
 src/Ganeti/HTools/Program/Hspace.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Ganeti/HTools/Program/Hspace.hs 
b/src/Ganeti/HTools/Program/Hspace.hs
index be90482..b02a8cc 100644
--- a/src/Ganeti/HTools/Program/Hspace.hs
+++ b/src/Ganeti/HTools/Program/Hspace.hs
@@ -487,6 +487,9 @@ main opts args = do
   allocnodes <- exitIfBad "failure during allocation" $
                 Cluster.genAllocNodes gl nl req_nodes True
 
+  when (verbose > 3)
+    . hPrintf stderr "Allocatable nodes: %s\n" $ show allocnodes
+
   -- Run the tiered allocation
 
   let minmaxes = iPolicyMinMaxISpecs ipol
-- 
2.0.0.526.g5318336