X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FArr.lhs;fp=GHC%2FArr.lhs;h=8f439cd85e97a232f578874083f29b996c5e134c;hb=ef10a81db3b6e3c3cb77af0c933214043f45d444;hp=87ce3b2bc8dff3d62e30af6b0c821aff2d545ea0;hpb=b7974b34bbe4737215d38e766b5d7d7797568341;p=ghc-base.git

diff --git a/GHC/Arr.lhs b/GHC/Arr.lhs
index 87ce3b2..8f439cd 100644
--- a/GHC/Arr.lhs
+++ b/GHC/Arr.lhs
@@ -199,15 +199,15 @@ instance Ix () where
 instance (Ix a, Ix b) => Ix (a, b) where -- as derived
     {-# SPECIALISE instance Ix (Int,Int) #-}
 
-    {- INLINE range #-}
+    {-# INLINE range #-}
     range ((l1,l2),(u1,u2)) =
       [ (i1,i2) | i1 <- range (l1,u1), i2 <- range (l2,u2) ]
 
-    {- INLINE unsafeIndex #-}
+    {-# INLINE unsafeIndex #-}
     unsafeIndex ((l1,l2),(u1,u2)) (i1,i2) =
       unsafeIndex (l1,u1) i1 * unsafeRangeSize (l2,u2) + unsafeIndex (l2,u2) i2
 
-    {- INLINE inRange #-}
+    {-# INLINE inRange #-}
     inRange ((l1,l2),(u1,u2)) (i1,i2) =
       inRange (l1,u1) i1 && inRange (l2,u2) i2