-- |
-- Stuff ready to go
--
availableFiles :: IncomingDir -> IO [ProcessingFile]
availableFiles dir = do
  fileList <- (getDirectoryContents $ d) >>= filterM (doesFileExist . (<//>) d)
  pure $ (ProcessingFile . T.pack) <$> fileList
  where
    d = toWorkingPath dir Processing
availableFiles :: IncomingDir -> IO [ProcessingFile]
availableFiles dir = do
  fileList <- (getDirectoryContents $ d) >>= filterM (doesFileExist . (<//>) d)
  pure $ (ProcessingFile . T.pack) <$> fileList
  where
    d = toWorkingPath dir Processing
availableFiles dir = do
  fileList <- (getDirectoryContents $ d) >>= filterM (doesFileExist . (<//>) d)
  pure $ (ProcessingFile . T.pack) <$> fileList
  where
    d = toWorkingPath dir Processing