diff options
Diffstat (limited to 'src/sortri.ml')
| -rw-r--r-- | src/sortri.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/sortri.ml b/src/sortri.ml index 00a7be2..c6da19b 100644 --- a/src/sortri.ml +++ b/src/sortri.ml @@ -100,9 +100,9 @@ let sortNewFirst () = (* Main sorting functions *) let shouldSortFirst ri = - Pred.test sortfirst (Path.toString ri.path) + Pred.test sortfirst (Path.toString ri.path1) let shouldSortLast ri = - Pred.test sortlast (Path.toString ri.path) + Pred.test sortlast (Path.toString ri.path1) let newItem ri = let newItem1 ri = @@ -139,10 +139,10 @@ let compareReconItems () = let l2 = Common.riLength ri2 in if l1<l2 then -1 else if l2<l1 then 1 else 0 else 0); - (compare (Path.toString ri1.path) (Path.toString ri2.path)) + (compare (Path.toString ri1.path1) (Path.toString ri2.path1)) ] in dbgsort (fun() -> Util.msg "%s <= %s --> %d\n" - (Path.toString ri1.path) (Path.toString ri2.path) cmp); + (Path.toString ri1.path1) (Path.toString ri2.path1) cmp); cmp let sortReconItems items = Safelist.stable_sort (compareReconItems()) items |