[project @ 1999-11-01 17:09:54 by simonpj]

[ghc-hetmet.git] / ghc / lib / std / Ix.lhs

diff --git a/ghc/lib/std/Ix.lhs b/ghc/lib/std/Ix.lhs
index da7a5e4..e7ee204 100644 (file)
--- a/ghc/lib/std/Ix.lhs
+++ b/ghc/lib/std/Ix.lhs
@@ -101,9 +101,9 @@ instance  Ix Int  where
     index b i | inRange b i =  unsafeIndex b i
              | otherwise   =  indexError b i "Int"
 
+    {-# INLINE inRange #-}
     inRange (I# m,I# n) (I# i) =  m <=# i && i <=# n
 
-
 ----------------------------------------------------------------------
 instance  Ix Integer  where
     {-# INLINE range #-}