Skip to content

Commit

Permalink
Try #3185:
Browse files Browse the repository at this point in the history
  • Loading branch information
iohk-bors[bot] authored Apr 26, 2022
2 parents f7bc922 + 9bb7622 commit af61431
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions lib/cli/src/Cardano/CLI.hs
Original file line number Diff line number Diff line change
Expand Up @@ -1616,7 +1616,7 @@ mkScribeId (LogToFile file _) = pure $ T.pack $ "FileSK::" <> file
getPrometheusURL :: IO (Maybe (String, Port "Prometheus"))
getPrometheusURL = do
prometheus_port <- lookupEnv "CARDANO_WALLET_PROMETHEUS_PORT"
prometheus_host <- fromMaybe "localhost" <$> lookupEnv "CARDANO_WALLET_PROMETHEUS_HOST"
prometheus_host <- fromMaybe "127.0.0.1" <$> lookupEnv "CARDANO_WALLET_PROMETHEUS_HOST"
case (prometheus_host, prometheus_port) of
(host, Just port) ->
case fromText @(Port "Prometheus") $ T.pack port of
Expand All @@ -1630,7 +1630,7 @@ getPrometheusURL = do
getEKGURL :: IO (Maybe (String, Port "EKG"))
getEKGURL = do
ekg_port <- lookupEnv "CARDANO_WALLET_EKG_PORT"
ekg_host <- fromMaybe "localhost" <$> lookupEnv "CARDANO_WALLET_EKG_HOST"
ekg_host <- fromMaybe "127.0.0.1" <$> lookupEnv "CARDANO_WALLET_EKG_HOST"
case (ekg_host, ekg_port) of
(host, Just port) ->
case fromText @(Port "EKG") $ T.pack port of
Expand Down

0 comments on commit af61431

Please sign in to comment.