mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

simplify git cat-file startup

Browse source
This commit is contained in:
Joey Hess 2011-07-02 19:22:11 -04:00
parent f626512b07
commit 591e293f43
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Branch.hs
View file

@ -237,11 +237,9 @@ catFile file = do
where where
startup state = do startup state = do
g <- Annex.gitRepo g <- Annex.gitRepo
let cmd = Git.gitCommandLine g (_, from, to) <- liftIO $ hPipeBoth "git" $
[Param "cat-file", Param "--batch"] toCommand $ Git.gitCommandLine g
let gitcmd = join " " ("git" : toCommand cmd) [Param "cat-file", Param "--batch"]
(_, from, to) <- liftIO $ hPipeBoth "sh"
["-c", "exec " ++ gitcmd ++ " 2>/dev/null"]
setState state { catFileHandles = Just (from, to) } setState state { catFileHandles = Just (from, to) }
ask (from, to) ask (from, to)
ask (from, to) = liftIO $ do ask (from, to) = liftIO $ do