Add INLINE pragma
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 10 Sep 2009 08:34:05 +0000 (08:34 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 10 Sep 2009 08:34:05 +0000 (08:34 +0000)
Data/Vector/IVector.hs

index af9d95e..a8a257c 100644 (file)
@@ -565,6 +565,7 @@ enumFromTo from to = from `seq` to `seq` unfoldr enumFromTo_go (fromEnum from)
                     | otherwise = Nothing
 
 enumFromThenTo :: (IVector v a, Enum a) => a -> a -> a -> v a
+{-# INLINE enumFromThenTo #-}
 enumFromThenTo from next to = from `seq` next `seq` to `seq` unfoldr enumFromThenTo_go from_i
   where
     from_i = fromEnum from