summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-06-25 15:43:46 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-06-25 15:43:46 -0400
commit6236f2309c02804f51947619a261eef7d7afd086 (patch)
tree5f60151be491b99057a6f398874c78d6624a05ab /Assistant
parentaff4690d1c6508b1a7d2311edabdeafc73049795 (diff)
webapp: Fix bug setting up ssh repo if the user enters "~/" at the start of the path.
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/MakeRemote.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/Assistant/MakeRemote.hs b/Assistant/MakeRemote.hs
index 6cd542231..17020c62a 100644
--- a/Assistant/MakeRemote.hs
+++ b/Assistant/MakeRemote.hs
@@ -49,6 +49,7 @@ makeSshRemote forcersync sshdata mcost = do
h = sshHostName sshdata
d
| T.pack "/" `T.isPrefixOf` sshDirectory sshdata = sshDirectory sshdata
+ | T.pack "~/" `T.isPrefixOf` sshDirectory sshdata = T.concat [T.pack "/", sshDirectory sshdata]
| otherwise = T.concat [T.pack "/~/", sshDirectory sshdata]
{- Runs an action that returns a name of the remote, and finishes adding it. -}