diff --git a/htools/Ganeti/Daemon.hs b/htools/Ganeti/Daemon.hs
index a88ffe897e070a8e98aa925090c37e91fa79ba3b..84568f975bca53e7f86a477c9bf8cf69dbe9ff9b 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 ++ ")")