add remote directory to pair request

This commit is contained in:
Joey Hess 2012-09-08 15:40:47 -04:00
parent 5401b9f249
commit 317ab14da2
3 changed files with 6 additions and 2 deletions

View file

@ -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)