diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-07-28 19:16:18 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-07-29 09:33:16 +0200 |
| commit | d8160f03094e6d18509956efe9bb6aeda31d79c5 (patch) | |
| tree | ef45877dcf6e64591ab08fec18356c1bc5738388 /main/Main.hs | |
| parent | 8bcaaf5524504f01bd5643d74848cec625370aa9 (diff) | |
Return peer address in IO monad
Changelog: API: Replaced `Network.peerAddress` with `getPeerAddress` and added `getPeerAddresses`
Diffstat (limited to 'main/Main.hs')
| -rw-r--r-- | main/Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/main/Main.hs b/main/Main.hs index 6a6c565..04ae057 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -403,7 +403,7 @@ interactiveLoop st opts = withTerminal commandCompletion $ \term -> do peerIdentity peer >>= \case pid@(PeerIdentityFull _) -> 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")) @@ -880,9 +880,10 @@ cmdDetails :: Command cmdDetails = do getSelectedOrManualContext >>= \case SelectedPeer peer -> do + paddr <- getPeerAddress peer cmdPutStrLn $ unlines [ "Network peer:" - , " " <> show (peerAddress peer) + , " " <> show paddr ] peerIdentity peer >>= \case PeerIdentityUnknown _ -> do |