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

@ -36,7 +36,7 @@ perform file = do
ok <- getViaTmp key $ \dest -> do
if dest /= file
then liftIO $
boolSystem "mv" [utilityEscape file, utilityEscape dest]
boolSystem "mv" [File file, File dest]
else return True
if ok
then return $ Just $ cleanup