From 44094e8f19ad410ac7fc78ddbc9e18f42bc3cf62 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 29 Jul 2025 10:04:33 +0200
Subject: Rename peerIdentity to getPeerIdentity

Changelog: API: Renamed `Network.peerIdentity` to `getPeerIdentity`.
---
 main/Test.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'main/Test.hs')

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
-- 
cgit v1.2.3