use ShellParam type

So, I have a type checked safe handling of filenames starting with dashes,
throughout the code.
This commit is contained in:
Joey Hess 2011-02-28 16:10:16 -04:00
parent 7e5678bcf7
commit fcdc4797a9
24 changed files with 151 additions and 124 deletions

View file

@ -66,7 +66,7 @@ builtin cmd dir params = do
external :: [String] -> IO ()
external params = do
ret <- boolSystem "git-shell" ("-c":(filterparams params))
ret <- boolSystem "git-shell" $ map Param $ ("-c":filterparams params)
when (not ret) $
error "git-shell failed"