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

hlinted a few files

Browse source
This commit is contained in:
Joey Hess 2010-11-06 17:07:11 -04:00
parent 016b6a59e7
commit a3519c365f
5 changed files with 32 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

4
GitQueue.hs
View file

@ -16,7 +16,7 @@ import qualified Data.Map as M
import System.IO
import System.Cmd.Utils
import Data.String.Utils
import Monad (unless)
import Control.Monad (unless)
import qualified GitRepo as Git
@ -57,5 +57,5 @@ runAction repo action files = do
where
runxargs = pOpen WriteToPipe "xargs" ("-0":gitcmd) feedxargs
gitcmd = ["git"] ++ Git.gitCommandLine repo
((getSubcommand action):(getParams action))
(getSubcommand action:getParams action)
feedxargs h = hPutStr h $ join "\0" files