From e6812a1ad7731b21ba4ada5473a481b84c067421 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Mon, 19 Mar 2012 10:55:19 +0100
Subject: [PATCH] htools: fix long version of --port for daemons
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
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>
---
htools/Ganeti/Daemon.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/htools/Ganeti/Daemon.hs b/htools/Ganeti/Daemon.hs
index a88ffe897..84568f975 100644
--- 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 ++ ")")
--
GitLab