# # patch "database.ml" # from [08d7dcfe36e6f9869db72ad6d2c530c28f15bfef] # to [194a3cd1f62997a8ce3e13f3f9016d5c9a968a9d] # --- database.ml +++ database.ml @@ -150,13 +150,15 @@ agraph | _ -> (* we need another database query *) - Sqlite3.fetch db + Sqlite3.fetch_f db + process_branching_edge_row agraph "SELECT A.parent, A.child \ FROM revision_ancestry AS A, revision_certs AS C, revision_certs AS P \ - WHERE C.id = A.child AND P.id = A.parent AND \ + WHERE (C.id IN %s OR P.id IN %s) AND \ + C.id = A.child AND P.id = A.parent AND \ C.name = 'branch' AND P.name = 'branch' AND \ C.value != P.value" - process_branching_edge_row agraph + view_name view_name end in agraph