[commit: packages/array] master: Adapt to Data.List/Foldable generalisation (f795552)

[git at git.haskell.org]

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

On branch  : master
Link       : http://git.haskell.org/packages/array.git/commitdiff/f7955522c45a6b7da352349381d93be7c38dff35

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

commit f7955522c45a6b7da352349381d93be7c38dff35
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Fri Sep 19 00:42:13 2014 +0200

    Adapt to Data.List/Foldable generalisation


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

f7955522c45a6b7da352349381d93be7c38dff35
 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 c1a2afe..b57ae4a 100644
--- a/Data/Array/Base.hs
+++ b/Data/Array/Base.hs
@@ -461,7 +461,7 @@ cmpIntUArray arr1@(UArray l1 u1 n1 _) arr2@(UArray l2 u2 n2 _) =
     if n1 == 0 then if n2 == 0 then EQ else LT else
     if n2 == 0 then GT else
     case compare l1 l2 of
-        EQ    -> foldr cmp (compare u1 u2) [0 .. (n1 `min` n2) - 1]
+        EQ    -> GHC.Base.foldr cmp (compare u1 u2) [0 .. (n1 `min` n2) - 1]
         other -> other
     where
     cmp i rest = case compare (unsafeAt arr1 i) (unsafeAt arr2 i) of