From 5e47499d12b77ebd749956de37f24dfb793c940d Mon Sep 17 00:00:00 2001 From: Bryan O'Sullivan Date: Tue, 14 Aug 2012 15:32:58 -0700 Subject: [PATCH] Kill off warnings from GHC 7.6 --- Data/Text/Fusion/Common.hs | 1 - Data/Text/Fusion/Internal.hs | 2 -- 2 files changed, 3 deletions(-) diff --git a/Data/Text/Fusion/Common.hs b/Data/Text/Fusion/Common.hs index 2aa24dbf..0bf4820d 100644 --- a/Data/Text/Fusion/Common.hs +++ b/Data/Text/Fusion/Common.hs @@ -776,7 +776,6 @@ isPrefixOf (Stream next1 s1 _) (Stream next2 s2 _) = loop (next1 s1) (next2 s2) 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 diff --git a/Data/Text/Fusion/Internal.hs b/Data/Text/Fusion/Internal.hs index e28d7a82..dfb105a0 100644 --- a/Data/Text/Fusion/Internal.hs +++ b/Data/Text/Fusion/Internal.hs @@ -101,7 +101,6 @@ eq (Stream next1 s1 _) (Stream next2 s2 _) = loop (next1 s1) (next2 s2) loop (Yield x1 s1') (Yield x2 s2') = x1 == x2 && loop (next1 s1') (next2 s2') {-# INLINE [0] eq #-} -{-# SPECIALISE eq :: Stream Char -> Stream Char -> Bool #-} cmp :: (Ord a) => Stream a -> Stream a -> Ordering 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) EQ -> loop (next1 s1') (next2 s2') other -> other {-# INLINE [0] cmp #-} -{-# SPECIALISE cmp :: Stream Char -> Stream Char -> Ordering #-} -- | The empty stream. empty :: Stream a