Add delayed_min
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sat, 14 May 2011 11:01:04 +0000 (11:01 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sat, 14 May 2011 11:01:04 +0000 (11:01 +0000)
Data/Vector/Fusion/Util.hs

index be673d9..c84abbb 100644 (file)
@@ -13,7 +13,7 @@
 module Data.Vector.Fusion.Util (
   Id(..), Box(..),
 
-  delay_inline
+  delay_inline, delayed_min
 ) where
 
 -- | Identity monad
@@ -41,4 +41,8 @@ delay_inline :: (a -> b) -> a -> b
 {-# INLINE [0] delay_inline #-}
 delay_inline f = f
 
+-- | `min` inlined in phase 0
+delayed_min :: Int -> Int -> Int
+{-# INLINE [0] delayed_min #-}
+delayed_min m n = min m n