Add INLINE pragma
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Tue, 20 Oct 2009 12:49:06 +0000 (12:49 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Tue, 20 Oct 2009 12:49:06 +0000 (12:49 +0000)
dph-base/Data/Array/Parallel/Stream/Flat/Enum.hs

index 733f79a..fe1b396 100644 (file)
@@ -90,6 +90,7 @@ enumFromToEachS n (Stream next s _) = Stream next' (NothingS :*: s) n
 -- FIXME: monomorphic for now because we need Rebox a otherwise!
 --
 enumFromStepLenEachS :: Int -> Stream (Int :*: Int :*: Int) -> Stream Int 
+{-# INLINE_STREAM enumFromStepLenEachS #-}
 enumFromStepLenEachS len (Stream next s n) = Stream next' (NothingS :*: s) len
   where
     {-# INLINE next' #-}
@@ -102,4 +103,4 @@ enumFromStepLenEachS len (Stream next s n) = Stream next' (NothingS :*: s) len
     next' (JustS (from :*: step :*: 0) :*: s) = Skip (NothingS :*: s)
     next' (JustS (from :*: step :*: n) :*: s) = Yield from (JustS (from+step :*: step :*: (n-1)) :*: s)
 
-      
\ No newline at end of file
+