STAB-838: mention temporal in connection error messages

core/package.yaml

@@ -48,6 +48,7 @@ library:
     - aeson
     - async
     - lens-family
+    - monad-logger
     - network-bsd
     - proto-lens
     - unliftio
@@ -57,4 +58,3 @@ library:
   when:
     - condition: os(darwin)
       frameworks: [Security, CoreFoundation, SystemConfiguration]
-

core/rust/src/client.rs

@@ -211,7 +211,6 @@ pub fn connect_client(
                     runtime,
                 }),
                 Err(e) => {
-                    eprintln!("Error: {:?}", e);
                     let err_message = e.to_string().into_bytes();
                     Err(CArray::c_repr_of(err_message).unwrap())
                 }

core/src/Temporal/Core/Client.hs

@@ -49,6 +49,7 @@ module Temporal.Core.Client (
 import Control.Concurrent
 import Control.Exception
 import Control.Monad
+import Control.Monad.Logger
 import Data.Aeson
 import Data.Aeson.TH
 import Data.ByteString (ByteString)
@@ -258,13 +259,15 @@ connectClient rt conf = do
             case result of
               Left errFP -> do
                 err <- withForeignPtr errFP $ peek >=> cArrayToText
+                let err' = "Error connecting to Temporal server: " <> err
+                runStdoutLoggingT $ $(logWarn) err'
                 case retryConfig conf of
-                  Nothing -> putMVar clientPtrSlot (throw $ ClientConnectionError err)
+                  Nothing -> putMVar clientPtrSlot (throw $ ClientConnectionError err')
                   Just retryConf -> do
                     let delayMillis = fromIntegral (initialIntervalMillis retryConf) * multiplier retryConf ^ attempt
                         delayMicros = delayMillis * 1000
                     if (fmap fromIntegral (maxElapsedTimeMillis retryConf) < Just delayMillis) || (maxRetries retryConf <= attempt)
-                      then putMVar clientPtrSlot (throw $ ClientConnectionError err)
+                      then putMVar clientPtrSlot (throw $ ClientConnectionError err')
                       else do
                         threadDelay $ round delayMicros
                         go (attempt + 1)

core/temporal-sdk-core.cabal

@@ -88,6 +88,7 @@ library
     , bytestring
     , containers
     , lens-family
+    , monad-logger
     , mtl
     , network-bsd
     , proto-lens