From 9bb762225faba691f1342bd3f069ce3192aa6d0e Mon Sep 17 00:00:00 2001 From: David Arnold Date: Fri, 18 Mar 2022 19:32:04 -0500 Subject: [PATCH] don't require a loclhost dns entry by going directly via 127.0.0.1 --- lib/cli/src/Cardano/CLI.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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