aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Pairing.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-11 03:16:00 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-11 03:16:00 -0400
commit0208d6aa82c12600ecca5502357aa36ad928478d (patch)
tree6a9d81568b239fbeb78592ec9d728c580c62182d /Assistant/Pairing.hs
parentb3f4c6eb683ebedf0e73bbca8305bb3f97cac6f1 (diff)
add a UUID to pair requests
Pair requests the the same UUID are part of the same pairing session, which allows us to detect attempts to brute force the shared secret, as that will result in pair requests with the same UUID that are not verified with the right secret.
Diffstat (limited to 'Assistant/Pairing.hs')
-rw-r--r--Assistant/Pairing.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Assistant/Pairing.hs b/Assistant/Pairing.hs
index 8031a7213..de69d8410 100644
--- a/Assistant/Pairing.hs
+++ b/Assistant/Pairing.hs
@@ -7,6 +7,7 @@
module Assistant.Pairing where
+import Common.Annex
import Utility.Verifiable
import Assistant.Ssh
@@ -49,6 +50,7 @@ data PairData = PairData
, remoteUserName :: UserName
, remoteDirectory :: FilePath
, remoteSshPubKey :: SshPubKey
+ , pairUUID :: UUID
}
deriving (Eq, Read, Show)