webapp: Fix bug setting up ssh repo if the user enters "~/" at the start of the path.
This commit is contained in:
parent
c8e6947693
commit
f1fe8edbbb
3 changed files with 8 additions and 0 deletions
|
@ -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. -}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue