wording
This commit is contained in:
parent
a196260924
commit
de79be2ba6
2 changed files with 2 additions and 2 deletions
|
@ -63,7 +63,7 @@ postStartTorPairR pairingwith = pairPage $ do
|
||||||
PairingWithFriend -> "Your friend's pairing code"
|
PairingWithFriend -> "Your friend's pairing code"
|
||||||
PairingWithSelf -> "The other device's pairing code"
|
PairingWithSelf -> "The other device's pairing code"
|
||||||
wormholeCodeField = checkBool (Wormhole.validCode . T.unpack)
|
wormholeCodeField = checkBool (Wormhole.validCode . T.unpack)
|
||||||
("That does not look like a valid code. Try again..." :: T.Text)
|
("That does not look like a valid pairing code. Try again..." :: T.Text)
|
||||||
textField
|
textField
|
||||||
|
|
||||||
{- Starts local pairing. -}
|
{- Starts local pairing. -}
|
||||||
|
|
|
@ -171,7 +171,7 @@ performPairing remotename addrs = do
|
||||||
putStrLn "Oops -- You entered this repository's pairing code. We need the pairing code of the *other* repository."
|
putStrLn "Oops -- You entered this repository's pairing code. We need the pairing code of the *other* repository."
|
||||||
getcode ourcode
|
getcode ourcode
|
||||||
Nothing -> do
|
Nothing -> do
|
||||||
putStrLn "That does not look like a valid code. Try again..."
|
putStrLn "That does not look like a valiad pairing code. Try again..."
|
||||||
getcode ourcode
|
getcode ourcode
|
||||||
|
|
||||||
-- We generate half of the authtoken; the pair will provide
|
-- We generate half of the authtoken; the pair will provide
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue