diff --git a/Data/Array/Base.hs b/Data/Array/Base.hs
index 310b253117bdf6b65215b61e34d7fdf2c495f64d..02707cf85fbc6d988efa39462ba4eb56ba5e4355 100644
--- a/Data/Array/Base.hs
+++ b/Data/Array/Base.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS_GHC -XNoBangPatterns -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -XBangPatterns -fno-warn-unused-imports #-}
 {-# OPTIONS_HADDOCK hide #-}
 -- XXX With a GHC 6.9 we get a spurious
 -- Data/Array/Base.hs:26:0:
@@ -295,7 +295,7 @@ type ListUArray e = forall i . Ix i => (i,i) -> [e] -> UArray i e
 {-# INLINE (!) #-}
 -- | Returns the element of an immutable array at the specified index.
 (!) :: (IArray a e, Ix i) => a i e -> i -> e
-arr ! i = case bounds arr of
+(!) arr i = case bounds arr of
               (l,u) -> unsafeAt arr $ safeIndex (l,u) (numElements arr) i
 
 {-# INLINE indices #-}