parTag :: [(Text, [Text])] -> [FilePath] -> StackTag [Either (PkgName, String) FilePath]
parTag srcs depsrcs = do

  o@StackTagOpts {noCache=nocache} <- ask

  -- control the number of jobs by using capabilities Currently,
  -- capabilities creates a few too many threads which saturates the
  -- CPU and network connection. For now, it's manually set to 3 until
  -- a better threading story is figured out.
  --
  -- io $ mapCapabilityPool (tagDependency nocache srcs) depsrcs

  -- WAT: rewrap the transformer. It's less heavy duty than bringing in
  -- monad-control or refactoring (2018-09-14)
  let worker osrc = flip runReaderT o $ do
          runStackTag (tagDependency nocache srcs osrc)

  io $ mapPool 3 worker depsrcs

-- | Tag a single dependency
parTag :: [(Text, [Text])] -> [FilePath] -> StackTag [Either (PkgName, String) FilePath]
parTag srcs depsrcs = do

  o@StackTagOpts {noCache=nocache} <- ask

  -- control the number of jobs by using capabilities Currently,
  -- capabilities creates a few too many threads which saturates the
  -- CPU and network connection. For now, it's manually set to 3 until
  -- a better threading story is figured out.
  --
  -- io $ mapCapabilityPool (tagDependency nocache srcs) depsrcs

  -- WAT: rewrap the transformer. It's less heavy duty than bringing in
  -- monad-control or refactoring (2018-09-14)
  let worker osrc = flip runReaderT o $ do
          runStackTag (tagDependency nocache srcs osrc)

  io $ mapPool 3 worker depsrcs

-- | Tag a single dependency
parTag srcs depsrcs = do

  o@StackTagOpts {noCache=nocache} <- ask

  -- control the number of jobs by using capabilities Currently,
  -- capabilities creates a few too many threads which saturates the
  -- CPU and network connection. For now, it's manually set to 3 until
  -- a better threading story is figured out.
  --
  -- io $ mapCapabilityPool (tagDependency nocache srcs) depsrcs

  -- WAT: rewrap the transformer. It's less heavy duty than bringing in
  -- monad-control or refactoring (2018-09-14)
  let worker osrc = flip runReaderT o $ do
          runStackTag (tagDependency nocache srcs osrc)

  io $ mapPool 3 worker depsrcs

-- | Tag a single dependency