From 6236f2309c02804f51947619a261eef7d7afd086 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 25 Jun 2013 15:43:46 -0400 Subject: webapp: Fix bug setting up ssh repo if the user enters "~/" at the start of the path. --- Assistant/MakeRemote.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Assistant/MakeRemote.hs') 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. -} -- cgit v1.2.3