[commit: packages/array] master: Comparison primops return Int# (Fixes #6135) (b577902)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/array

On branch  : master
Link       : http://git.haskell.org/?p=packages/array.git;a=commit;h=b5779026c4d760cc380ef1fc18403534dced55c1

>---------------------------------------------------------------

commit b5779026c4d760cc380ef1fc18403534dced55c1
Author: Jan Stolarek <jan.stolarek at p.lodz.pl>
Date:   Wed Jun 12 16:59:17 2013 +0200

    Comparison primops return Int# (Fixes #6135)
    
    For a deatiled discussion of this changes please visit the wiki page:
    http://hackage.haskell.org/trac/ghc/wiki/PrimBool


>---------------------------------------------------------------

b5779026c4d760cc380ef1fc18403534dced55c1
 Data/Array/Base.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/Array/Base.hs b/Data/Array/Base.hs
index 374b8a5..5c9b4fe 100644
--- a/Data/Array/Base.hs
+++ b/Data/Array/Base.hs
@@ -1135,7 +1135,7 @@ INSTANCE_TYPEABLE3(STUArray,stUArrayTc,"STUArray")
 #ifdef __GLASGOW_HASKELL__
 instance Eq (STUArray s i e) where
     STUArray _ _ _ arr1# == STUArray _ _ _ arr2# =
-        sameMutableByteArray# arr1# arr2#
+        tagToEnum# (sameMutableByteArray# arr1# arr2#)
 #endif
 #ifdef __HUGS__
 instance Eq (STUArray s i e) where