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

4
git-annex-shell.hs
View file

@ -58,10 +58,10 @@ builtins = map cmdname cmds
builtin :: String -> String -> [String] -> IO ()
builtin cmd dir params =
Git.repoAbsPath dir >>= Git.repoFromAbsPath >>=
dispatch (cmd:(filterparams params)) cmds commonOptions header
dispatch (cmd : filterparams params) cmds commonOptions header
external :: [String] -> IO ()
external params = do
external params =
unlessM (boolSystem "git-shell" $ map Param $ "-c":filterparams params) $
error "git-shell failed"