5e47499 · text · git.iko.soy

Kill off warnings from GHC 7.6

commit5e47499d12b77ebd749956de37f24dfb793c940d authorBryan O'Sullivan <bos@serpentine.com> dateTue 14 Aug 2012, 15:32 (14 years ago) parentdb1a248

2 files changed−3

unifiedsplit

Data/Text/Fusion/Common.hs−1

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

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

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

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

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

780779

781780-- ----------------------------------------------------------------------------

782781-- * Searching

Data/Text/Fusion/Internal.hs−2

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

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

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

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

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

105104

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

107106cmp (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)

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

118117 other -> other

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

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

121119

122120-- | The empty stream.

123121empty :: Stream a