diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-08-03 09:30:58 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-08-03 09:30:58 +0200 |
| commit | 4435f2d329c1781e262a963c2e8d4ad7fea2eb7a (patch) | |
| tree | 625f971f9739bdaa07aa39c6eff2e0b68b78e707 /src/Main.hs | |
| parent | e8d163608f5eff8cd356d24ebf23ab5eeb829a35 (diff) | |
Adapt code to getPeerAddress/getPeerIdentity changes
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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" ) ) |