Commits

Bryan O'Sullivan committed b744e47

Performance improvements by not taunting the 6.10 inliner.

  • Participants
  • Parent commits 3c3ac17

Comments (0)

Files changed (2)

File Data/Text/Encoding/Fusion.hs

 streamUtf8 onErr bs = Stream next 0 (maxSize l)
     where
       l = B.length bs
-      {-# INLINE next #-}
       next i
           | i >= l = Done
           | U8.validate1 x1 = Yield (unsafeChr8 x1) (i+1)

File Data/Text/Fusion/Common.hs

 filter :: (Char -> Bool) -> Stream Char -> Stream Char
 filter p (Stream next0 s0 len) = Stream next s0 len -- HINT maybe too high
   where
-    {-# INLINE next #-}
     next !s = case next0 s of
                 Done                   -> Done
                 Skip    s'             -> Skip    s'
 zipWith f (Stream next0 sa0 len1) (Stream next1 sb0 len2) =
     Stream next (sa0 :*: sb0 :*: N) (smaller len1 len2)
     where
-      {-# INLINE next #-}
       next (sa :*: sb :*: N) = case next0 sa of
                                  Done -> Done
                                  Skip sa' -> Skip (sa' :*: sb :*: N)