diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-22 21:55:49 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-22 21:55:49 +0100 |
| commit | 1a137b03472f3727ca7a6ab9621b28641c999301 (patch) | |
| tree | 62fd397a54cf1f9fcb71bf3181abc6dd31876f39 /compiler/utils/ListSetOps.lhs | |
| parent | 0043f07ad8c9611a905379c2abd40bda0f39ebf9 (diff) | |
| download | haskell-1a137b03472f3727ca7a6ab9621b28641c999301.tar.gz | |
Change more uses of sortLe to sortBy
Diffstat (limited to 'compiler/utils/ListSetOps.lhs')
| -rw-r--r-- | compiler/utils/ListSetOps.lhs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/utils/ListSetOps.lhs b/compiler/utils/ListSetOps.lhs index 930e57d2ba..077eae2574 100644 --- a/compiler/utils/ListSetOps.lhs +++ b/compiler/utils/ListSetOps.lhs @@ -113,10 +113,9 @@ equivClasses :: (a -> a -> Ordering) -- Comparison equivClasses _ [] = [] equivClasses _ stuff@[_] = [stuff] -equivClasses cmp items = runs eq (sortLe le items) +equivClasses cmp items = runs eq (sortBy cmp items) where eq a b = case cmp a b of { EQ -> True; _ -> False } - le a b = case cmp a b of { LT -> True; EQ -> True; GT -> False } \end{code} The first cases in @equivClasses@ above are just to cut to the point |