X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=GHC%2FArr.lhs;h=5c4c9d662cc11502ac1ce22d7c1e8608595a8e6a;hb=2b626ac3e0e5eed595d7480bd18f14db875bb514;hp=dd8218cdf4656284439283a2955355ddc2cec903;hpb=2ed749d45e044d5793a8d150c3ee226aca206773;p=ghc-base.git

diff --git a/GHC/Arr.lhs b/GHC/Arr.lhs
index dd8218c..5c4c9d6 100644
--- a/GHC/Arr.lhs
+++ b/GHC/Arr.lhs
@@ -284,7 +284,7 @@ data Ix i => Array     i e = Array   !i !i (Array# e)
 --
 --  * @s@: the state variable argument for the 'ST' type
 --
---  * @i@: the index type of the array (should be an instance of @Ix@)
+--  * @i@: the index type of the array (should be an instance of 'Ix')
 --
 --  * @e@: the element type of the array.
 --
@@ -476,11 +476,12 @@ instance (Ix i, Ord e) => Ord (Array i e) where
 
 instance (Ix a, Show a, Show b) => Show (Array a b) where
     showsPrec p a =
-        showParen (p > 9) $
+        showParen (p > appPrec) $
         showString "array " .
-        shows (bounds a) .
+        showsPrec appPrec1 (bounds a) .
         showChar ' ' .
-        shows (assocs a)
+        showsPrec appPrec1 (assocs a)
+	-- Precedence of 'array' is the precedence of application
 
 -- The Read instance is in GHC.Read
 \end{code}