diff options
Diffstat (limited to 'Assistant/Ssh.hs')
-rw-r--r-- | Assistant/Ssh.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Ssh.hs b/Assistant/Ssh.hs index 66ed54257..e439ecd23 100644 --- a/Assistant/Ssh.hs +++ b/Assistant/Ssh.hs @@ -383,7 +383,7 @@ mangleSshHostName sshdata = intercalate "-" {- Extracts the real hostname from a mangled ssh hostname. -} unMangleSshHostName :: String -> String -unMangleSshHostName h = case split "-" h of +unMangleSshHostName h = case splitc '-' h of ("git":"annex":rest) -> unescape (intercalate "-" (beginning rest)) _ -> h where |