diff --git a/hspace.hs b/hspace.hs
index 3b301d43c3c596bde6a12b2bef0df508e5fa9ad7..0c9738a2e2944caefd9f7cef78051fd55728e7d5 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