summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-11-05 12:35:11 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-11-05 12:35:11 -0400
commit0a31669c2c3d6932253b51f2e1470a08a30bb314 (patch)
tree13f1d8764321815c06071a8cea5850ca1099c686 /Assistant
parent727e0ec0e1d2a2057fde863fa8bdee1ac9995502 (diff)
Bugfix: Fix hang in webapp when setting up a ssh remote with an absolute path.
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/MakeRemote.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/MakeRemote.hs b/Assistant/MakeRemote.hs
index 0cd3369be..479ebd3ff 100644
--- a/Assistant/MakeRemote.hs
+++ b/Assistant/MakeRemote.hs
@@ -44,7 +44,7 @@ makeSshRemote forcersync sshdata = do
u = maybe (T.pack "") (\v -> T.concat [v, T.pack "@"]) $ sshUserName sshdata
h = sshHostName sshdata
d
- | T.pack "/" `T.isPrefixOf` sshDirectory sshdata = d
+ | T.pack "/" `T.isPrefixOf` sshDirectory sshdata = sshDirectory sshdata
| otherwise = T.concat [T.pack "/~/", sshDirectory sshdata]
{- Runs an action that returns a name of the remote, and finishes adding it. -}