idiom
This commit is contained in:
parent
167523f09d
commit
4f9336bb60
5 changed files with 6 additions and 6 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue