X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FUtil.lhs;fp=compiler%2Futils%2FUtil.lhs;h=37aedc8df4e0517bec315eb914b1f2c8cc9b2da2;hp=5cf020f7f56929ed598f33f44977e28e493182b4;hb=2ab5e6cb18accfb2f59d5b0f0f2c5cf33f4adb27;hpb=cb913bbf1f66a6ee01f01b63a3d583abf7609823

diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs
index 5cf020f..37aedc8 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}