summaryrefslogtreecommitdiff
path: root/Git/CheckAttr.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-12-22 14:59:25 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-12-22 15:01:13 -0400
commit5a275a3f5d79977170a70b3e3ee16e38ac32916f (patch)
tree8817cfabed6067b21476290f6c6a00aba8fc1775 /Git/CheckAttr.hs
parent7892397020fe345886ef9aa84a6c1580ebee5348 (diff)
Can now be built with older git versions (before 1.7.7); the resulting binary should only be used with old git.
Remove git old version check from configure, and use the git version it was built against in the git check-attr code.
Diffstat (limited to 'Git/CheckAttr.hs')
-rw-r--r--Git/CheckAttr.hs34
1 files changed, 28 insertions, 6 deletions
diff --git a/Git/CheckAttr.hs b/Git/CheckAttr.hs
index 0d3e798a1..eedaf6642 100644
--- a/Git/CheckAttr.hs
+++ b/Git/CheckAttr.hs
@@ -13,32 +13,54 @@ import Common
import Git
import Git.Command
import qualified Git.Filename
+import qualified Git.Version
{- Efficiently looks up a gitattributes value for each file in a list. -}
lookup :: String -> [FilePath] -> Repo -> IO [(FilePath, String)]
lookup attr files repo = do
- -- git check-attr needs relative filenames input; it will choke
- -- on some absolute filenames. This also means it will output
- -- all relative filenames.
cwd <- getCurrentDirectory
- let relfiles = map (relPathDirToFile cwd . absPathFrom cwd) files
(_, fromh, toh) <- hPipeBoth "git" (toCommand params)
_ <- forkProcess $ do
hClose fromh
- hPutStr toh $ join "\0" relfiles
+ hPutStr toh $ join "\0" $ input cwd
hClose toh
exitSuccess
hClose toh
- (map topair . lines) <$> hGetContents fromh
+ output cwd . lines <$> hGetContents fromh
where
params = gitCommandLine
[ Param "check-attr"
, Param attr
, Params "-z --stdin"
] repo
+
+ {- Before git 1.7.7, git check-attr worked best with
+ - absolute filenames; using them worked around some bugs
+ - with relative filenames.
+ -
+ - With newer git, git check-attr chokes on some absolute
+ - filenames, and the bugs that necessitated them were fixed,
+ - so use relative filenames. -}
+ oldgit = Git.Version.older "1.7.7"
+ input cwd
+ | oldgit = map (absPathFrom cwd) files
+ | otherwise = map (relPathDirToFile cwd . absPathFrom cwd) files
+ output cwd
+ | oldgit = map (torel cwd . topair)
+ | otherwise = map topair
+
topair l = (Git.Filename.decode file, value)
where
file = join sep $ beginning bits
value = end bits !! 0
bits = split sep l
sep = ": " ++ attr ++ ": "
+
+ torel cwd (file, value) = (relfile, value)
+ where
+ relfile
+ | startswith cwd' file = drop (length cwd') file
+ | otherwise = relPathDirToFile top' file
+ top = workTree repo
+ cwd' = cwd ++ "/"
+ top' = top ++ "/"