diff options
Diffstat (limited to 'Command/P2P.hs')
-rw-r--r-- | Command/P2P.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/P2P.hs b/Command/P2P.hs index 58b5c3bd7..40a49b49f 100644 --- a/Command/P2P.hs +++ b/Command/P2P.hs @@ -97,7 +97,7 @@ genAddresses addrs = do -- Address is read from stdin, to avoid leaking it in shell history. linkRemote :: RemoteName -> CommandStart linkRemote remotename = do - showStart "p2p link" remotename + showStart' "p2p link" (Just remotename) next $ next promptaddr where promptaddr = do @@ -123,7 +123,7 @@ linkRemote remotename = do startPairing :: RemoteName -> [P2PAddress] -> CommandStart startPairing _ [] = giveup "No P2P networks are currrently available." startPairing remotename addrs = do - showStart "p2p pair" remotename + showStart' "p2p pair" (Just remotename) ifM (liftIO Wormhole.isInstalled) ( next $ performPairing remotename addrs , giveup "Magic Wormhole is not installed, and is needed for pairing. Install it from your distribution or from https://github.com/warner/magic-wormhole/" |