Support filenames that start with a dash; when such a file is passed to a utility it will be escaped to avoid it being interpreted as an option.
This commit is contained in:
parent
e61b47bc8a
commit
836e71297b
9 changed files with 29 additions and 10 deletions
|
@ -35,7 +35,8 @@ perform file = do
|
|||
-- rather than simply calling moveToObjectDir
|
||||
ok <- getViaTmp key $ \dest -> do
|
||||
if dest /= file
|
||||
then liftIO $ boolSystem "mv" [file, dest]
|
||||
then liftIO $
|
||||
boolSystem "mv" [utilityEscape file, utilityEscape dest]
|
||||
else return True
|
||||
if ok
|
||||
then return $ Just $ cleanup
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue