Add missing INLINE pragmas for safety
authorMax Bolingbroke <batterseapower@hotmail.com>
Sun, 8 Feb 2009 11:17:51 +0000 (11:17 +0000)
committerMax Bolingbroke <batterseapower@hotmail.com>
Sun, 8 Feb 2009 11:17:51 +0000 (11:17 +0000)
Data/Vector/Fusion/Stream.hs
Data/Vector/Fusion/Stream/Monadic.hs

index ba3e24c..62070ef 100644 (file)
@@ -298,9 +298,11 @@ foldr1 f = unId . M.foldr1 f
 -- -----------------
 
 and :: Stream Bool -> Bool
+{-# INLINE and #-}
 and = unId . M.and
 
 or :: Stream Bool -> Bool
+{-# INLINE or #-}
 or = unId . M.or
 
 concatMap :: (a -> Stream b) -> Stream a -> Stream b
index ade0c0c..b76eb6d 100644 (file)
@@ -632,6 +632,7 @@ foldr1M f (Stream step s _) = foldr1M_go0 s
 -- -----------------
 
 and :: Monad m => Stream m Bool -> m Bool
+{-# INLINE_STREAM and #-}
 and (Stream step s _) = and_go s
   where
     and_go s = do
@@ -643,6 +644,7 @@ and (Stream step s _) = and_go s
                    Done           -> return True
 
 or :: Monad m => Stream m Bool -> m Bool
+{-# INLINE_STREAM or #-}
 or (Stream step s _) = or_go s
   where
     or_go s = do