File tree Expand file tree Collapse file tree 2 files changed +0
-14
lines changed Expand file tree Collapse file tree 2 files changed +0
-14
lines changed Original file line number Diff line number Diff line change @@ -2436,13 +2436,6 @@ splitLookup k t = k `seq`
2436
2436
[glue l r] Glues [l] and [r] together. Assumes that [l] and
2437
2437
[r] are already balanced with respect to each other.
2438
2438
[merge l r] Merges two trees and restores balance.
2439
-
2440
- Note: in contrast to Adam's paper, we use (<=) comparisons instead
2441
- of (<) comparisons in [link], [merge] and [balance].
2442
- Quickcheck (on [difference]) showed that this was necessary in order
2443
- to maintain the invariants. It is quite unsatisfactory that I haven't
2444
- been able to find out why this is actually the case! Fortunately, it
2445
- doesn't hurt to be a bit more conservative.
2446
2439
--------------------------------------------------------------------}
2447
2440
2448
2441
{- -------------------------------------------------------------------
Original file line number Diff line number Diff line change @@ -1259,13 +1259,6 @@ deleteAt i t = i `seq`
1259
1259
[glue l r] Glues [l] and [r] together. Assumes that [l] and
1260
1260
[r] are already balanced with respect to each other.
1261
1261
[merge l r] Merges two trees and restores balance.
1262
-
1263
- Note: in contrast to Adam's paper, we use (<=) comparisons instead
1264
- of (<) comparisons in [link], [merge] and [balance].
1265
- Quickcheck (on [difference]) showed that this was necessary in order
1266
- to maintain the invariants. It is quite unsatisfactory that I haven't
1267
- been able to find out why this is actually the case! Fortunately, it
1268
- doesn't hurt to be a bit more conservative.
1269
1262
--------------------------------------------------------------------}
1270
1263
1271
1264
{- -------------------------------------------------------------------
You can’t perform that action at this time.
0 commit comments