diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-06-25 15:43:46 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-06-25 15:43:46 -0400 |
| commit | 6236f2309c02804f51947619a261eef7d7afd086 (patch) | |
| tree | 5f60151be491b99057a6f398874c78d6624a05ab /Assistant | |
| parent | aff4690d1c6508b1a7d2311edabdeafc73049795 (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.hs | 1 |
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. -} |