diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-07-29 10:04:33 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-07-29 10:04:33 +0200 |
| commit | 44094e8f19ad410ac7fc78ddbc9e18f42bc3cf62 (patch) | |
| tree | 38d95556e0b141afff0f6ee480cd41538bfa6afe /main/Test.hs | |
| parent | d8160f03094e6d18509956efe9bb6aeda31d79c5 (diff) | |
Rename peerIdentity to getPeerIdentity
Changelog: API: Renamed `Network.peerIdentity` to `getPeerIdentity`.
Diffstat (limited to 'main/Test.hs')
| -rw-r--r-- | main/Test.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/main/Test.hs b/main/Test.hs index 1167bee..e697a91 100644 --- a/main/Test.hs +++ b/main/Test.hs @@ -557,7 +557,7 @@ cmdStartServer = do peer <- getNextPeerChange rsServer let printPeer TestPeer {..} = do - params <- peerIdentity tpPeer >>= \case + params <- getPeerIdentity tpPeer >>= \case PeerIdentityFull pid -> do return $ ("id":) $ map (maybe "<unnamed>" T.unpack . idName) (unfoldOwners pid) _ -> do @@ -613,7 +613,7 @@ cmdPeerList = do tpeers <- liftIO $ readMVar rsPeers forM_ peers $ \peer -> do Just tp <- return $ find ((peer ==) . tpPeer) . snd $ tpeers - mbpid <- peerIdentity peer + mbpid <- getPeerIdentity peer paddr <- getPeerAddress peer cmdOut $ unwords $ concat [ [ "peer-list-item", show (tpIndex tp) ] @@ -830,7 +830,7 @@ cmdContactSetName = do cmdDmSendPeer :: Command cmdDmSendPeer = do [spidx, msg] <- asks tiParams - PeerIdentityFull to <- peerIdentity =<< getPeer spidx + PeerIdentityFull to <- getPeerIdentity =<< getPeer spidx void $ sendDirectMessage to msg cmdDmSendContact :: Command @@ -861,7 +861,7 @@ dmList peer = do cmdDmListPeer :: Command cmdDmListPeer = do [spidx] <- asks tiParams - PeerIdentityFull to <- peerIdentity =<< getPeer spidx + PeerIdentityFull to <- getPeerIdentity =<< getPeer spidx dmList to cmdDmListContact :: Command |