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

hlint tweaks

Browse source 
Did all sources except Remotes/* and Command/*
This commit is contained in:
Joey Hess 2011-07-15 03:12:05 -04:00
parent 9bb797c0ea
commit e784757376
32 changed files with 172 additions and 179 deletions
Download patch file Download diff file Expand all files Collapse all files

5
git-union-merge.hs
View file

@ -23,8 +23,7 @@ tmpIndex :: Git.Repo -> FilePath
tmpIndex g = Git.workTree g </> Git.gitDir g </> "index.git-union-merge"
setup :: Git.Repo -> IO ()
setup g = do
cleanup g -- idempotency
setup g = cleanup g -- idempotency
cleanup :: Git.Repo -> IO ()
cleanup g = do
@ -34,7 +33,7 @@ cleanup g = do
parseArgs :: IO [String]
parseArgs = do
args <- getArgs
if (length args /= 3)
if length args /= 3
then usage
else return args