diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-08-20 09:45:16 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-08-20 09:45:16 +0000 |
| commit | 2ab5e6cb18accfb2f59d5b0f0f2c5cf33f4adb27 (patch) | |
| tree | c059415b3b6ab8bf348481179d9625dcd306f823 /compiler/utils | |
| parent | cb913bbf1f66a6ee01f01b63a3d583abf7609823 (diff) | |
| download | haskell-2ab5e6cb18accfb2f59d5b0f0f2c5cf33f4adb27.tar.gz | |
generalise the type of "on"
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Util.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs index 5cf020f7f5..37aedc8df4 100644 --- a/compiler/utils/Util.lhs +++ b/compiler/utils/Util.lhs @@ -523,7 +523,7 @@ sortWith get_key xs = sortLe le xs where x `le` y = get_key x < get_key y -on :: (a -> a -> Ordering) -> (b -> a) -> b -> b -> Ordering +on :: (a -> a -> c) -> (b -> a) -> b -> b -> c on cmp sel = \x y -> sel x `cmp` sel y \end{code} |