diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-12-18 17:13:06 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-12-18 17:16:53 -0400 |
commit | 4c26a9677747ef9c5376a662c19a08960a53b28d (patch) | |
tree | 8257ff343c8d802cfc204f8900f79b1c559ffaa5 /Command/P2P.hs | |
parent | ecd79dd69dad3474abf78085cbd401c227853b74 (diff) |
typo
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 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 |