diff options
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 |