diff options
Diffstat (limited to 'src/Test.hs')
| -rw-r--r-- | src/Test.hs | 7 |
1 files changed, 1 insertions, 6 deletions
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)]) |