diff options
author | 2012-09-08 15:40:47 -0400 | |
---|---|---|
committer | 2012-09-08 15:40:47 -0400 | |
commit | 317ab14da283e8ff88a45b036fb3aee9f5b4083f (patch) | |
tree | 34a77cf21203cccef5cd8a845fef7d45fc5edfff /Assistant/Threads/PairListener.hs | |
parent | 5401b9f2497c7719dfe65d9d576f645bec282785 (diff) |
add remote directory to pair request
Diffstat (limited to 'Assistant/Threads/PairListener.hs')
-rw-r--r-- | Assistant/Threads/PairListener.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Threads/PairListener.hs b/Assistant/Threads/PairListener.hs index 58d8fd969..12f10070c 100644 --- a/Assistant/Threads/PairListener.hs +++ b/Assistant/Threads/PairListener.hs @@ -43,7 +43,8 @@ pairListenerThread st dstatus = thread $ withSocketsDo $ do let pairdata = verifiableVal v let repo = remoteUserName pairdata ++ "@" ++ fromMaybe (showAddr $ remoteAddress pairdata) - (remoteHostName pairdata) + (remoteHostName pairdata) ++ + (remoteDirectory pairdata) let msg = repo ++ " is sending a pair request." {- Pair request alerts from the same host combine, - so repeated requests do not add additional alerts. -} |