5e47499 · text · git.iko.soy

on master help sign in

Kill off warnings from GHC 7.6

5e47499Bryan O'Sullivan14 years ago

Data/Text/Fusion/Common.hs−1

@@ -776,7 +776,6 @@ isPrefixOf (Stream next1 s1 _) (Stream next2 s2 _) = loop (next1 s1) (next2 s2)

776 loop (Yield x1 s1') (Yield x2 s2') = x1 == x2 &&

777 loop (next1 s1') (next2 s2')

778{-# INLINE [0] isPrefixOf #-}

779−{-# SPECIALISE isPrefixOf :: Stream Char -> Stream Char -> Bool #-}

780

779

781-- ----------------------------------------------------------------------------

780-- ----------------------------------------------------------------------------

782-- * Searching

781-- * Searching

Data/Text/Fusion/Internal.hs−2

@@ -101,7 +101,6 @@ eq (Stream next1 s1 _) (Stream next2 s2 _) = loop (next1 s1) (next2 s2)

101 loop (Yield x1 s1') (Yield x2 s2') = x1 == x2 &&

102 loop (next1 s1') (next2 s2')

103{-# INLINE [0] eq #-}

104−{-# SPECIALISE eq :: Stream Char -> Stream Char -> Bool #-}

105

104

106cmp :: (Ord a) => Stream a -> Stream a -> Ordering

105cmp :: (Ord a) => Stream a -> Stream a -> Ordering

107cmp (Stream next1 s1 _) (Stream next2 s2 _) = loop (next1 s1) (next2 s2)

106cmp (Stream next1 s1 _) (Stream next2 s2 _) = loop (next1 s1) (next2 s2)

@@ -117,7 +116,6 @@ cmp (Stream next1 s1 _) (Stream next2 s2 _) = loop (next1 s1) (next2 s2)

117 EQ -> loop (next1 s1') (next2 s2')

116 EQ -> loop (next1 s1') (next2 s2')

118 other -> other

117 other -> other

119{-# INLINE [0] cmp #-}

118{-# INLINE [0] cmp #-}

120−{-# SPECIALISE cmp :: Stream Char -> Stream Char -> Ordering #-}

121

119

122-- | The empty stream.

120-- | The empty stream.

123empty :: Stream a

121empty :: Stream a