Skip to content
This repository
Browse code

Kill off warnings from GHC 7.6

  • Loading branch information...
commit 5e47499d12b77ebd749956de37f24dfb793c940d 1 parent db1a248
Bryan O'Sullivan authored August 14, 2012
1  Data/Text/Fusion/Common.hs
@@ -776,7 +776,6 @@ isPrefixOf (Stream next1 s1 _) (Stream next2 s2 _) = loop (next1 s1) (next2 s2)
776 776
       loop (Yield x1 s1') (Yield x2 s2') = x1 == x2 &&
777 777
                                            loop (next1 s1') (next2 s2')
778 778
 {-# INLINE [0] isPrefixOf #-}
779  
-{-# SPECIALISE isPrefixOf :: Stream Char -> Stream Char -> Bool #-}
780 779
 
781 780
 -- ----------------------------------------------------------------------------
782 781
 -- * Searching
2  Data/Text/Fusion/Internal.hs
@@ -101,7 +101,6 @@ eq (Stream next1 s1 _) (Stream next2 s2 _) = loop (next1 s1) (next2 s2)
101 101
       loop (Yield x1 s1') (Yield x2 s2') = x1 == x2 &&
102 102
                                            loop (next1 s1') (next2 s2')
103 103
 {-# INLINE [0] eq #-}
104  
-{-# SPECIALISE eq :: Stream Char -> Stream Char -> Bool #-}
105 104
 
106 105
 cmp :: (Ord a) => Stream a -> Stream a -> Ordering
107 106
 cmp (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 116
             EQ    -> loop (next1 s1') (next2 s2')
118 117
             other -> other
119 118
 {-# INLINE [0] cmp #-}
120  
-{-# SPECIALISE cmp :: Stream Char -> Stream Char -> Ordering #-}
121 119
 
122 120
 -- | The empty stream.
123 121
 empty :: Stream a

0 notes on commit 5e47499

Please sign in to comment.
Something went wrong with that request. Please try again.