From f7696955e55a96a53d820105b18f0dc10e445a05 Mon Sep 17 00:00:00 2001
From: Kei Hibino <ex8k.hibino@gmail.com>
Date: Sun, 11 Feb 2024 20:50:10 +0900
Subject: [PATCH] more concise message for getAddrInfo errors

---
 Network/Socket/Info.hsc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Network/Socket/Info.hsc b/Network/Socket/Info.hsc
index cf48bf58..1a5f2b86 100644
--- a/Network/Socket/Info.hsc
+++ b/Network/Socket/Info.hsc
@@ -273,9 +273,9 @@ getAddrInfo hints node service = alloc getaddrinfo
         "Network.Socket.getAddrInfo (called with preferred socket type/protocol: "
       , maybe "Nothing" show hints
       , ", host name: "
-      , show node
+      , maybe "Nothing" show node
       , ", service name: "
-      , show service
+      , maybe "Nothing" show service
       , ")"
       ]
 #if defined(darwin_HOST_OS)