From 0ec2f3b20fb9998b1c9eae91d8d1c19b90d8dde9 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 11 May 2017 18:31:14 -0400
Subject: [PATCH] rename to avoid name conflict

---
 Command/P2P.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Command/P2P.hs b/Command/P2P.hs
index 505286a3d3..58b5c3bd78 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