say that it's a temporal error

Author: johnmastro

core/rust/src/client.rs

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

core/src/Temporal/Core/Client.hs

@@ -258,13 +258,14 @@ connectClient rt conf = do
             case result of
               Left errFP -> do
                 err <- withForeignPtr errFP $ peek >=> cArrayToText
+                let err' = "Error connecting to Temporal server: " <> 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)