more concise message for getAddrInfo errors

haskell · Feb 11, 2024 · f769695 · f769695
1 parent f893d03
commit f769695
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)