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

oops, wrong system

Browse source
This commit is contained in:
Joey Hess 2010-10-12 17:43:54 -04:00
parent a36c39ad0a
commit 0561ea1b28
3 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
GitRepo.hs
View file

@ -26,10 +26,10 @@ import System
import System.Directory
import System.Posix.Directory
import System.Path
import System.Cmd
import System.Cmd.Utils
import System.IO
import IO (bracket_)
import System.Posix.Process
import Data.String.Utils
import Data.Map as Map hiding (map, split)
import Network.URI
@ -145,7 +145,7 @@ gitCommandLine repo params = assertlocal repo $
{- Runs git in the specified repo. -}
gitRun :: GitRepo -> [String] -> IO ()
gitRun repo params = assertlocal repo $ do
r <- executeFile "git" True (gitCommandLine repo params) Nothing
r <- rawSystem "git" (gitCommandLine repo params)
return ()
{- Runs a git subcommand and returns its output. -}