uploadAction :: IncomingDir -> Address -> ProcessingFile -> AWS ArchivedFile
uploadAction dir a f@(ProcessingFile fname) = do
  uploadWithModeOrFail Overwrite fpath (fileAddress f a)
  liftIO $ moveToArchive dir f
  where
    fpath = toWorkingPath dir Processing <//> T.unpack fname
uploadAction :: IncomingDir -> Address -> ProcessingFile -> AWS ArchivedFile
uploadAction dir a f@(ProcessingFile fname) = do
  uploadWithModeOrFail Overwrite fpath (fileAddress f a)
  liftIO $ moveToArchive dir f
  where
    fpath = toWorkingPath dir Processing <//> T.unpack fname
uploadAction dir a f@(ProcessingFile fname) = do
  uploadWithModeOrFail Overwrite fpath (fileAddress f a)
  liftIO $ moveToArchive dir f
  where
    fpath = toWorkingPath dir Processing <//> T.unpack fname