From 4435f2d329c1781e262a963c2e8d4ad7fea2eb7a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 3 Aug 2025 09:30:58 +0200
Subject: Adapt code to getPeerAddress/getPeerIdentity changes

---
 src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index df8caf2..504fc00 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -304,10 +304,10 @@ watchPeers :: GlobalState -> Server -> JSVal -> IO ()
 watchPeers gs@GlobalState {..} server htmlList = do
     void $ forkIO $ void $ forever $ do
         peer <- getNextPeerChange server
-        peerIdentity peer >>= \case
+        getPeerIdentity peer >>= \case
             pid@(PeerIdentityFull pid') -> do
                 dropped <- isPeerDropped peer
-                let shown = showPeer pid $ peerAddress peer
+                shown <- showPeer pid <$> getPeerAddress peer
                 let update [] = ( [ ( peer, shown ) ], ( Nothing, "NEW" ) )
                     update (( p, s ) : ps)
                         | p == peer && dropped = ( ps, ( Nothing, "DEL" ) )
-- 
cgit v1.2.3