LUClusterSetParams: Use node allocation lock

[ganeti-local] / htools / htools.hs

diff --git a/htools/htools.hs b/htools/htools.hs
index 35dc99d..1b491e2 100644 (file)
--- a/htools/htools.hs
+++ b/htools/htools.hs
@@ -56,6 +56,7 @@ main = do
     Nothing -> usage name
     Just (fn, options, arguments) -> do
          cmd_args <- getArgs
-         (opts, args) <- parseOpts cmd_args name (options ++ genericOpts)
+         real_options <- options
+         (opts, args) <- parseOpts cmd_args name (real_options ++ genericOpts)
                            arguments
          fn opts args