diff --git a/lib/cli/src/Cardano/CLI.hs b/lib/cli/src/Cardano/CLI.hs index 73bcf8a1bdd..7e180fe9fe6 100644 --- a/lib/cli/src/Cardano/CLI.hs +++ b/lib/cli/src/Cardano/CLI.hs @@ -1620,7 +1620,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 @@ -1634,7 +1634,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