mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

rename to avoid name conflict

Browse source
This commit is contained in:
Joey Hess 2017-05-11 18:31:14 -04:00
parent 3f4b671486
commit 0ec2f3b20f
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Command/P2P.hs
View file

@ -98,9 +98,9 @@ genAddresses addrs = do
linkRemote :: RemoteName -> CommandStart linkRemote :: RemoteName -> CommandStart
linkRemote remotename = do linkRemote remotename = do
showStart "p2p link" remotename showStart "p2p link" remotename
next $ next prompt next $ next promptaddr
where where
prompt = do promptaddr = do
liftIO $ putStrLn "" liftIO $ putStrLn ""
liftIO $ putStr "Enter peer address: " liftIO $ putStr "Enter peer address: "
liftIO $ hFlush stdout liftIO $ hFlush stdout
@ -112,7 +112,7 @@ linkRemote remotename = do
else case unformatP2PAddress s of else case unformatP2PAddress s of
Nothing -> do Nothing -> do
liftIO $ hPutStrLn stderr "Unable to parse that address, please check its format and try again." liftIO $ hPutStrLn stderr "Unable to parse that address, please check its format and try again."
prompt promptaddr
Just addr -> do Just addr -> do
r <- setupLink remotename addr r <- setupLink remotename addr
case r of case r of