add remote directory to pair request
This commit is contained in:
parent
5401b9f249
commit
317ab14da2
3 changed files with 6 additions and 2 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue