From ebe2292bc4bd19ec68935c2135160ca6aa0dbae3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 6 May 2023 22:35:37 +0200
Subject: Initial IPv6 support

---
 src/Test.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'src/Test.hs')

diff --git a/src/Test.hs b/src/Test.hs
index f9f764b..a7dd730 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -14,7 +14,6 @@ import Data.ByteString qualified as B
 import Data.ByteString.Char8 qualified as BC
 import Data.ByteString.Lazy qualified as BL
 import Data.Foldable
-import Data.IP (fromSockAddr)
 import Data.Ord
 import Data.Text (Text)
 import Data.Text qualified as T
@@ -332,11 +331,7 @@ cmdStartServer = do
         let printPeer (idx, p) = do
                 params <- peerIdentity p >>= return . \case
                     PeerIdentityFull pid -> ("id":) $ map (maybe "<unnamed>" T.unpack . idName) (unfoldOwners pid)
-                    _ -> ("addr":) $ case peerAddress p of
-                        DatagramAddress _ saddr
-                            | Just (addr, port) <- fromSockAddr saddr -> [show addr, show port]
-                            | otherwise -> []
-                        PeerIceSession ice -> [show ice]
+                    _ -> [ "addr", show (peerAddress p) ]
                 outLine out $ unwords $ [ "peer", show idx ] ++ params
 
             update (nid, []) = printPeer (nid, peer) >> return (nid + 1, [(nid, peer)])
-- 
cgit v1.2.3