Есть ли способ переименовать файлы в Haskell без перезаписывания существующих?

Question

Я хочу переименовать файл в Haskell без перезаписи уже существующего. Если целевой файл существует, я хочу иметь дело с этим в своем коде (добавив что-то к имени файла).

Описание renameFile из System.Directory говорит:

renameFile old new изменяет имя существующего объекта файловой системы от old к new. Если объект new уже существует, он атомарно заменяется объектом old. Ни один из путей не может ссылаться на существующий каталог.

Есть ли какой-либо существующий модуль или команда, которая позволила бы мне переименовать без перезаписи?

Я знаю, что могу делать чеки самостоятельно. Я бы просто почувствовал больше лучше, если бы была функция, написанная кем-то испытанным. Записанные файлы ушли навсегда.

Update

Я хочу, чтобы переименовать фотографии, видео, живые фотографии от данных для создания либо из EXIF ​​(по аналогии с jhead) или файловой системы метка времени нормализуется к часовому поясу была сделана фотография. Это может быть что две фотографии были сделаны точно в одно и то же время и в конечном итоге получили бы то же имя: 2017-01-12 – 11-12-11.jpg. Это не должно быть. Вторую фотографию следует называть чем-то вроде 2017-01-12 – 11-12-11a.jpg.

Answer 1

Вот один из возможных решений:

import System.Directory (doesFileExist, renameFile) 

-- | Rename a src file as tgt file, safely. If the tgt file exists, don't 
-- rename and return False. Otherwise, rename src to tgt and return True. 
renameSafely :: FilePath -> FilePath -> IO Bool 
renameSafely src tgt = do 
    exists <- doesFileExist tgt 
    if not exists 
    then (renameFile src tgt >> return True) 
    else return False 

(Отказ от ответственности:. Я не запускаю это через GHC, чтобы убедиться, что он компилирует, а «>>» в предложении then может быть проблемой)

Как отмечено в комментариях, в файловой системе существует потенциальное состояние гонки с двумя процессами, которые пытаются создать или переименовать файл с тем же именем одновременно. Однако, как вы указали, это вряд ли будет проблемой для вас.

Если renameSafely возвращает IO False, тогда просто попробуйте другое название. :-)