From 7294d552066867a7019ea4a49af00cc5511745c5 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 6 Dec 2012 17:09:08 -0400
Subject: webapp: Allow user to specify the ssh port when setting up a remote.

---
 Assistant/Pairing/MakeRemote.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Assistant/Pairing/MakeRemote.hs')

diff --git a/Assistant/Pairing/MakeRemote.hs b/Assistant/Pairing/MakeRemote.hs
index 38f9981e5..f938bac93 100644
--- a/Assistant/Pairing/MakeRemote.hs
+++ b/Assistant/Pairing/MakeRemote.hs
@@ -60,6 +60,7 @@ pairMsgToSshData msg = do
 		, sshUserName = Just (T.pack $ remoteUserName d)
 		, sshDirectory = T.pack dir
 		, sshRepoName = genSshRepoName hostname dir
+		, sshPort = 22
 		, needsPubKey = True
 		, rsyncOnly = False
 		}
-- 
cgit v1.2.3