Skip to content
Permalink
Browse files

launcher: Remove redundant parentheses

  • Loading branch information...
rvl committed Jun 12, 2019
1 parent 376862a commit 5fdbb5a5f16143b2277782bf71f1bcdbdadd8e5c
Showing with 6 additions and 6 deletions.
  1. +6 −6 exe/launcher/Main.hs
@@ -81,14 +81,14 @@ Options:
main :: IO ()
main = do
args <- parseArgsOrExit cli =<< getArgs
when (args `isPresent` (longOption "help")) $ help cli
when (args `isPresent` (shortOption 'h')) $ help cli
when (args `isPresent` (longOption "version")) $ do
when (args `isPresent` longOption "help") $ help cli
when (args `isPresent` shortOption 'h') $ help cli
when (args `isPresent` longOption "version") $ do
putStrLn (showVersion version)
exitSuccess

let stateDir = args `getArg` (longOption "state-dir")
let network = fromMaybe "testnet" $ args `getArg` (longOption "network")
let stateDir = args `getArg` longOption "state-dir"
let network = fromMaybe "testnet" $ args `getArg` longOption "network"
bridgePort <- args `parseArg` longOption "http-bridge-port"
walletPort <- args `parseOptionalArg` longOption "wallet-server-port"

@@ -100,7 +100,7 @@ main = do
, walletOn stateDir walletPort bridgePort network
]
sayErr $ fmt $ blockListF commands
(ProcessHasExited name code) <- launch commands
ProcessHasExited name code <- launch commands
sayErr $ T.pack name <> " exited with code " <> T.pack (show code)
exitWith code
where

0 comments on commit 5fdbb5a

Please sign in to comment.
You can’t perform that action at this time.