bin/return-assignment: only prioritize haskell packages which are not broken (this is too strict, but I have currently no better idea how to avoid endless priority-cycles

1 files changed, 3 insertions, 0 deletions

diff --git a/bin/return-assignment b/bin/return-assignment
index d040b22..aa0fa4f 100755
--- a/bin/return-assignment
+++ b/bin/return-assignment
@@ -410,6 +410,9 @@ if [ "$6" = 'ERROR' ]; then
       printf ' JOIN `binary_packages`'
       printf ' ON `binary_packages`.`pkgname`=`broken`.`pkgname`'
       mysql_join_binary_packages_build_assignments
+# TODO: We might want to relax the below condition somewhat. But we should
+# be careful to avoid prioritizing-loops.
+      printf ' AND `build_assignments`.`is_broken` IS NULL'
       mysql_join_binary_packages_binary_packages_in_repositories
       printf ' AND `binary_packages_in_repositories`.`repository`=%s' \
         "${repository_ids__any_build_list}"