diff options
Diffstat (limited to 'main')
| -rw-r--r-- | main/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/main/Main.hs b/main/Main.hs index f306158..8dee414 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -120,7 +120,7 @@ availableServices = options :: [ OptDescr (Options -> Writer [ String ] Options) ] options = [ Option [ 'p' ] [ "port" ] - (ReqArg (\p -> so $ \opts -> opts { serverPort = read p }) "<port>") + (ReqArg (\p -> so $ \opts -> opts { serverPort = read p, serverRetryUnspecifiedPort = False }) "<port>") "local port to bind" , Option [ 's' ] [ "silent" ] (NoArg (so $ \opts -> opts { serverLocalDiscovery = False })) |