Update FFI call to use .value
commit09f7c4677501be312574ec3dc8bf469a4bb14181
authorGary Burgess <gary.burgess@gmail.com>
dateFri 18 Jul 2014, 20:33 (12 years ago)
parentad4a27f
prelude/prelude.purs+1−1
@@ -335,7 +335,7 @@ module Prelude
335335 foreign import unsafeCompare
336336 "function unsafeCompare(n1) {\
337337 \ return function(n2) {\
338− \ return n1 < n2 ? LT : n1 > n2 ? GT : EQ;\
338+ \ return n1 < n2 ? LT.value : n1 > n2 ? GT.value : EQ.value;\
339339 \ };\
340340 \}" :: forall a. a -> a -> Ordering
341341