From 7e74e7db364804bcd5845cb65afe7aa601a1962d Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Mon, 6 Jul 2009 16:40:01 +0200
Subject: [PATCH] hspace: add display of instance spec
This is mostly for user-friendliness in the default mode, when we don't
specify the instance parameters.
---
hspace.hs | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/hspace.hs b/hspace.hs
index 3b301d43c..0c9738a2e 100644
--- a/hspace.hs
+++ b/hspace.hs
@@ -220,6 +220,11 @@ main = do
hPutStrLn stderr "Error: this program doesn't take any arguments."
exitWith $ ExitFailure 1
+ printf "Spec RAM: %d\n" (optIMem opts)
+ printf "Spec disk: %d\n" (optIDsk opts)
+ printf "Spec CPUs: %d\n" (optIVCPUs opts)
+ printf "Spec nodes: %d\n" (optINodes opts)
+
let verbose = optVerbose opts
(fixed_nl, il, csf) <- CLI.loadExternalData opts
--
GitLab