atRoot :: Task.Task_ E.Problem a -> Task.Task_ E.Error a
atRoot task =
  Task.mapError (\problem -> E.DependencyProblems problem []) task
atRoot :: Task.Task_ E.Problem a -> Task.Task_ E.Error a
atRoot task =
  Task.mapError (\problem -> E.DependencyProblems problem []) task
atRoot task =
  Task.mapError (\problem -> E.DependencyProblems problem []) task