From c2aec505d173ffeb7b6005b07cd3c13655dde80f Mon Sep 17 00:00:00 2001 From: Pranay Sashank Date: Thu, 14 Nov 2019 14:29:53 +0530 Subject: [PATCH] Fix warnings generated by Werror. --- src/Streamly/Internal/Data/Pipe/Types.hs | 2 ++ src/Streamly/Streams/StreamD.hs | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Streamly/Internal/Data/Pipe/Types.hs b/src/Streamly/Internal/Data/Pipe/Types.hs index 48835a157..59c7c6c32 100644 --- a/src/Streamly/Internal/Data/Pipe/Types.hs +++ b/src/Streamly/Internal/Data/Pipe/Types.hs @@ -26,7 +26,9 @@ where import Control.Arrow (Arrow(..)) import Control.Category (Category(..)) import Data.Maybe (isJust) +#if __GLASGOW_HASKELL__ < 808 import Data.Semigroup (Semigroup(..)) +#endif import Prelude hiding (zipWith, map, id, unzip, null) import Streamly.Internal.Data.Strict (Tuple'(..), Tuple3'(..)) diff --git a/src/Streamly/Streams/StreamD.hs b/src/Streamly/Streams/StreamD.hs index 44436be5c..16e46cea5 100644 --- a/src/Streamly/Streams/StreamD.hs +++ b/src/Streamly/Streams/StreamD.hs @@ -305,7 +305,7 @@ import Data.Maybe (fromJust, isJust) import Data.Word (Word32) import Foreign.Ptr (Ptr) import Foreign.Storable (Storable(..)) -import GHC.Base (assert, Char(..), unsafeChr, ord) +import GHC.Base (assert, unsafeChr, ord) import GHC.IO.Encoding.Failure (isSurrogate) import GHC.ForeignPtr (ForeignPtr (..)) import GHC.Ptr (Ptr (..))