aboutsummaryrefslogtreecommitdiff
path: root/Command/P2P.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-12-18 17:13:06 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-12-18 17:16:53 -0400
commit4c26a9677747ef9c5376a662c19a08960a53b28d (patch)
tree8257ff343c8d802cfc204f8900f79b1c559ffaa5 /Command/P2P.hs
parentecd79dd69dad3474abf78085cbd401c227853b74 (diff)
typo
Diffstat (limited to 'Command/P2P.hs')
-rw-r--r--Command/P2P.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/P2P.hs b/Command/P2P.hs
index f2443e787..a4129445b 100644
--- a/Command/P2P.hs
+++ b/Command/P2P.hs
@@ -166,7 +166,7 @@ performPairing remotename addrs = do
case Wormhole.toCode l of
Just code
| code /= ourcode -> do
- putStrLn "Pairing in process..."
+ putStrLn "Exchanging pairing data..."
return code
| otherwise -> do
putStrLn "Oops -- You entered this repository's pairing code. We need the pairing code of the *other* repository."
@@ -258,7 +258,7 @@ finishPairing :: Int -> RemoteName -> HalfAuthToken -> PairData -> Annex Pairing
finishPairing retries remotename (HalfAuthToken ourhalf) (PairData (HalfAuthToken theirhalf) theiraddrs) = do
case (toAuthToken (ourhalf <> theirhalf), toAuthToken (theirhalf <> ourhalf)) of
(Just ourauthtoken, Just theirauthtoken) -> do
- liftIO $ putStrLn $ "Successfully exchanged pairing data. Connecting to " ++ remotename ++ " ..."
+ liftIO $ putStrLn $ "Successfully exchanged pairing data. Connecting to " ++ remotename ++ "..."
storeP2PAuthToken ourauthtoken
go retries theiraddrs theirauthtoken
_ -> return ReceiveFailed