moveToArchive :: IncomingDir -> ProcessingFile -> IO ArchivedFile
moveToArchive dir (ProcessingFile fname) = do
  renameFile (toWorkingPath dir Processing <//> T.unpack fname)
             (toWorkingPath dir Archive <//> T.unpack fname)
  pure $ ArchivedFile fname
moveToArchive :: IncomingDir -> ProcessingFile -> IO ArchivedFile
moveToArchive dir (ProcessingFile fname) = do
  renameFile (toWorkingPath dir Processing <//> T.unpack fname)
             (toWorkingPath dir Archive <//> T.unpack fname)
  pure $ ArchivedFile fname
moveToArchive dir (ProcessingFile fname) = do
  renameFile (toWorkingPath dir Processing <//> T.unpack fname)
             (toWorkingPath dir Archive <//> T.unpack fname)
  pure $ ArchivedFile fname