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.

1 files changed, 2 insertions, 1 deletions

diff --git a/Command/SetKey.hs b/Command/SetKey.hs
index 388392cd6..025fb74d6 100644
--- a/Command/SetKey.hs
+++ b/Command/SetKey.hs
@@ -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