@@ -335,7 +335,7 @@ module Prelude
335 foreign import unsafeCompare
335 foreign import unsafeCompare
336 "function unsafeCompare(n1) {\
336 "function unsafeCompare(n1) {\
337 \ return function(n2) {\
337 \ return function(n2) {\
338− \ return n1 < n2 ? LT : n1 > n2 ? GT : EQ;\
338+ \ return n1 < n2 ? LT.value : n1 > n2 ? GT.value : EQ.value;\
340 \}" :: forall a. a -> a -> Ordering
340 \}" :: forall a. a -> a -> Ordering