1. Bryan O'Sullivan
  2. text

Source

text / Data / Text / Fusion / Common.hs

Diff from to

File Data/Text/Fusion/Common.hs

       loop (Yield x1 s1') (Yield x2 s2') = x1 == x2 &&
                                            loop (next1 s1') (next2 s2')
 {-# INLINE [0] isPrefixOf #-}
-{-# SPECIALISE isPrefixOf :: Stream Char -> Stream Char -> Bool #-}
 
 -- ----------------------------------------------------------------------------
 -- * Searching