htools: fix long version of --port for daemons

The dashes do not need to be in, if they are then the resulting option
is:

  -p PORT  ----port=PORT     Network port (default: 1814)

Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: René Nussbaumer <rn@google.com>

diff --git a/htools/Ganeti/Daemon.hs b/htools/Ganeti/Daemon.hs
index a88ffe8..84568f9 100644 (file)
--- a/htools/Ganeti/Daemon.hs
+++ b/htools/Ganeti/Daemon.hs
@@ -125,7 +125,7 @@ oNoUserChecks = Option "" ["no-user-checks"]
          "Ignore user checks"
 
 oPort :: Int -> OptType
-oPort def = Option "p" ["--port"]
+oPort def = Option "p" ["port"]
             (reqWithConversion (tryRead "reading port")
              (\port opts -> Ok opts { optPort = Just port }) "PORT")
             ("Network port (default: " ++ show def ++ ")")