--
-- * @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.
--
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}