diff options
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. -} |