processReady :: IncomingDir -> Address -> AWS [ArchivedFile]
processReady dir a = do
  files <- liftIO $ availableFiles dir
  mapM (uploadAction dir a) files
processReady :: IncomingDir -> Address -> AWS [ArchivedFile]
processReady dir a = do
  files <- liftIO $ availableFiles dir
  mapM (uploadAction dir a) files
processReady dir a = do
  files <- liftIO $ availableFiles dir
  mapM (uploadAction dir a) files