diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/P2P.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/P2P.hs b/Command/P2P.hs index 505286a3d..58b5c3bd7 100644 --- a/Command/P2P.hs +++ b/Command/P2P.hs @@ -98,9 +98,9 @@ genAddresses addrs = do linkRemote :: RemoteName -> CommandStart linkRemote remotename = do showStart "p2p link" remotename - next $ next prompt + next $ next promptaddr where - prompt = do + promptaddr = do liftIO $ putStrLn "" liftIO $ putStr "Enter peer address: " liftIO $ hFlush stdout @@ -112,7 +112,7 @@ linkRemote remotename = do else case unformatP2PAddress s of Nothing -> do liftIO $ hPutStrLn stderr "Unable to parse that address, please check its format and try again." - prompt + promptaddr Just addr -> do r <- setupLink remotename addr case r of |