This commit is contained in:
Joey Hess 2011-01-27 17:58:30 -04:00
parent 167523f09d
commit 4f9336bb60
5 changed files with 6 additions and 6 deletions

View file

@ -323,7 +323,7 @@ configRemotes repo = map construct remotepairs
| otherwise = repoFromPath v
-- git remotes can be written scp style -- [user@]host:dir
-- where dir is relative to the user's home directory.
scpstyle v = isInfixOf ":" v && (not $ isInfixOf "//" v)
scpstyle v = ":" `isInfixOf` v && (not $ "//" `isInfixOf` v)
scptourl v = "ssh://" ++ host ++ slash dir
where
bits = split ":" v
@ -458,7 +458,7 @@ prop_idempotent_deencode s = s == decodeGitFile (encodeGitFile s)
-}
absDir :: String -> IO String
absDir d
| isPrefixOf "/" d = expandt d
| "/" `isPrefixOf` d = expandt d
| otherwise = do
h <- myhomedir
return $ h ++ d