Another update from ingydotnet^djgoku

Task/Priority-queue/OCaml/priority-queue-2.ocaml

@@ -12,7 +12,7 @@ let () =
     1, "Solve RC tasks";
     2, "Tax return";
   ] in
-  let pq = List.fold_right PQSet.add tasks PQSet.empty in
+  let pq = PQSet.of_list tasks in
   let rec aux pq' =
     if not (PQSet.is_empty pq') then begin
       let prio, name as task = PQSet.min_elt pq' in