aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Pairing.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-08 15:40:47 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-08 15:40:47 -0400
commit317ab14da283e8ff88a45b036fb3aee9f5b4083f (patch)
tree34a77cf21203cccef5cd8a845fef7d45fc5edfff /Assistant/Pairing.hs
parent5401b9f2497c7719dfe65d9d576f645bec282785 (diff)
add remote directory to pair request
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 a157e28f8..f328bf9e0 100644
--- a/Assistant/Pairing.hs
+++ b/Assistant/Pairing.hs
@@ -36,8 +36,10 @@ data PairMsg
data PairData = PairData
-- uname -n output, not a full domain name
{ remoteHostName :: Maybe HostName
+ -- the address is included so that it can be verified, avoiding spoofing
, remoteAddress :: SomeAddr
, remoteUserName :: UserName
+ , remoteDirectory :: FilePath
, sshPubKey :: SshPubKey
}
deriving (Eq, Read, Show)