diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-05 12:35:11 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-05 12:35:11 -0400 |
| commit | 0a31669c2c3d6932253b51f2e1470a08a30bb314 (patch) | |
| tree | 13f1d8764321815c06071a8cea5850ca1099c686 /Assistant/MakeRemote.hs | |
| parent | 727e0ec0e1d2a2057fde863fa8bdee1ac9995502 (diff) | |
Bugfix: Fix hang in webapp when setting up a ssh remote with an absolute path.
Diffstat (limited to 'Assistant/MakeRemote.hs')
| -rw-r--r-- | Assistant/MakeRemote.hs | 2 |
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. -} |