diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-27 17:58:30 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-27 17:58:30 -0400 |
| commit | 4f9336bb60ca4dc08ca271605de71415c98ec3ff (patch) | |
| tree | a1fc60bb1b6133d8b8b966f2ea77349c0a9a6d62 /GitRepo.hs | |
| parent | 167523f09d48777f3a5931fdcbc21b9d363e0e6c (diff) | |
idiom
Diffstat (limited to 'GitRepo.hs')
| -rw-r--r-- | GitRepo.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/GitRepo.hs b/GitRepo.hs index ec363fe73..4e69544d4 100644 --- a/GitRepo.hs +++ b/GitRepo.hs @@ -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 |