Revision e6812a1a htools/Ganeti/Daemon.hs
b/htools/Ganeti/Daemon.hs | ||
---|---|---|
125 | 125 |
"Ignore user checks" |
126 | 126 |
|
127 | 127 |
oPort :: Int -> OptType |
128 |
oPort def = Option "p" ["--port"]
|
|
128 |
oPort def = Option "p" ["port"] |
|
129 | 129 |
(reqWithConversion (tryRead "reading port") |
130 | 130 |
(\port opts -> Ok opts { optPort = Just port }) "PORT") |
131 | 131 |
("Network port (default: " ++ show def ++ ")") |
Also available in: Unified diff