smp-server: inline mapSyncEthExn

Single-use one-liner that discarded its argument — the exception text
was already logged immediately above the call site by the N7 fix. The
function was a remnant from before that logging was added. Inline the
constant return at the call site; the line is gone.

Author: shumvgolove

src/Simplex/Messaging/Server/Names/Resolver.hs

@@ -195,7 +195,7 @@ coalesce env@NamesEnv {inflight} key now = do
                 E.throwIO e
             | otherwise -> do
                 logError $ "[NAMES] resolver fetch raised " <> T.pack (E.displayException e)
-                pure (Left (mapSyncEthExn e))
+                pure (Left EthHttpErr)
       atomically $ do
         putTMVar mv r
         modifyTVar' inflight (PSQ.delete key)
@@ -205,9 +205,6 @@ coalesce env@NamesEnv {inflight} key now = do
         Left _ -> pure () -- transient errors (HTTP, decode, timeout) are not cached
       pure r
 
-mapSyncEthExn :: E.SomeException -> ResolveError
-mapSyncEthExn _ = EthHttpErr
-
 fetchOnceTimed :: NamesEnv -> ByteString -> IO (Either ResolveError NameRecord)
 fetchOnceTimed env key =
   timeout (rpcTimeoutMs (config env) * 1000) (fetchOnce env key) >>= \case