87421d6 · streamly · git.iko.soy

git.iko.soy/streamly

on master help sign in

Fix warnings due to unused imports and shadowing

87421d6Anurag Hooda6 years ago

benchmark/Streamly/Benchmark/Data/Unfold.hs+2−2

compare with master

unifiedsplit

@@ -37,11 +37,11 @@ import qualified Streamly.FileSystem.Handle as FH

37import qualified Streamly.Internal.Data.Unfold as IUF

38import qualified Streamly.Prelude as SP

39import Streamly.Benchmark.CommonH

40−import System.IO (Handle, hClose, hPutChar)

40+import System.IO (Handle, hClose)

41import Control.Exception (SomeException)

43import Streamly.Benchmark.Common

44−import Gauge

44+import Gauge hiding (env)

45import Prelude hiding (concat, take, filter, zipWith, map, mapM, takeWhile)

47{-# INLINE benchIO #-}

benchmark/Streamly/Benchmark/Prelude/Serial/Exceptions.hs−7

@@ -26,18 +26,11 @@ where

26import Control.Exception (SomeException)

27import System.IO (Handle, hClose, hPutChar)

28import Prelude hiding (last, length)

29−import Streamly.Internal.Data.Array.Storable.Foreign.Types (defaultChunkSize)

31−import qualified Streamly.Data.Fold as FL

32−import qualified Streamly.Unicode.Stream as SS

33import qualified Streamly.FileSystem.Handle as FH

30import qualified Streamly.FileSystem.Handle as FH

34import qualified Streamly.Internal.Data.Unfold as IUF

31import qualified Streamly.Internal.Data.Unfold as IUF

35−import qualified Streamly.Internal.Unicode.Stream as IUS

36import qualified Streamly.Internal.FileSystem.Handle as IFH

32import qualified Streamly.Internal.FileSystem.Handle as IFH

37−import qualified Streamly.Internal.Memory.ArrayStream as AS

38−import qualified Streamly.Internal.Unicode.Array.Char as IUA

39import qualified Streamly.Internal.Data.Stream.IsStream as IP

33import qualified Streamly.Internal.Data.Stream.IsStream as IP

40−import qualified Streamly.Data.Array.Storable.Foreign as A

41import qualified Streamly.Prelude as S

34import qualified Streamly.Prelude as S

43import Gauge hiding (env)

36import Gauge hiding (env)

benchmark/Streamly/Benchmark/Prelude/Serial/Split.hs+1−14

@@ -24,37 +24,24 @@ module Serial.Split

24where

26import Data.Char (ord)

27−import Data.Functor.Identity (runIdentity)

28import Data.Word (Word8)

27import Data.Word (Word8)

29−import GHC.Magic (inline)

30−#if __GLASGOW_HASKELL__ >= 802

31−import GHC.Magic (noinline)

32−#else

33−#define noinline

34−#endif

35import System.IO (Handle)

28import System.IO (Handle)

36import Prelude hiding (last, length)

29import Prelude hiding (last, length)

38import qualified Streamly.Data.Fold as FL

31import qualified Streamly.Data.Fold as FL

39−import qualified Streamly.Unicode.Stream as SS

40import qualified Streamly.FileSystem.Handle as FH

32import qualified Streamly.FileSystem.Handle as FH

41−-- import qualified Streamly.Internal.Data.Fold as IFL

42import qualified Streamly.Internal.Data.Parser as PR

33import qualified Streamly.Internal.Data.Parser as PR

43−import qualified Streamly.Internal.Data.Stream.StreamD as D

44import qualified Streamly.Internal.Unicode.Stream as IUS

34import qualified Streamly.Internal.Unicode.Stream as IUS

45import qualified Streamly.Internal.FileSystem.Handle as IFH

35import qualified Streamly.Internal.FileSystem.Handle as IFH

46import qualified Streamly.Internal.Data.Array.Storable.Foreign as A

36import qualified Streamly.Internal.Data.Array.Storable.Foreign as A

47−import qualified Streamly.Internal.Data.Array.Storable.Foreign.Types as AT

48−import qualified Streamly.Internal.Memory.ArrayStream as AS

49import qualified Streamly.Internal.Data.Stream.IsStream as IP

37import qualified Streamly.Internal.Data.Stream.IsStream as IP

50import qualified Streamly.Prelude as S

38import qualified Streamly.Prelude as S

52import Gauge hiding (env)

40import Gauge hiding (env)

53−-- import Handle.Common

54import Streamly.Benchmark.CommonH

41import Streamly.Benchmark.CommonH

56#ifdef INSPECTION

43#ifdef INSPECTION

57−import Streamly.Internal.Data.Stream.StreamD.Type (Step(..), GroupState)

44+import Streamly.Internal.Data.Stream.StreamD.Type (Step(..))

59import qualified Streamly.Internal.Data.Unfold as IUF

46import qualified Streamly.Internal.Data.Unfold as IUF

benchmark/Streamly/Benchmark/Unicode/Stream.hs+1−4

@@ -19,10 +19,8 @@

19{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}

20#endif

22−import Control.Exception (SomeException)

23−import System.IO (Handle, hClose, hPutChar)

22+import System.IO (Handle)

24import Prelude hiding (last, length)

23import Prelude hiding (last, length)

25−import Streamly.Internal.Data.Array.Storable.Foreign.Types (defaultChunkSize)

27import qualified Streamly.Data.Fold as FL

25import qualified Streamly.Data.Fold as FL

28import qualified Streamly.Unicode.Stream as SS

26import qualified Streamly.Unicode.Stream as SS

@@ -42,7 +40,6 @@ import Streamly.Benchmark.Common

42#ifdef INSPECTION

40#ifdef INSPECTION

43import Foreign.Storable (Storable)

41import Foreign.Storable (Storable)

44import Streamly.Internal.Data.Stream.StreamD.Type (Step(..))

42import Streamly.Internal.Data.Stream.StreamD.Type (Step(..))

45−import qualified Streamly.Internal.Data.Stream.StreamD.Type as D

46import qualified Streamly.Internal.Data.Tuple.Strict as Strict

43import qualified Streamly.Internal.Data.Tuple.Strict as Strict

47import qualified Streamly.Internal.Data.Array.Storable.Foreign as A

44import qualified Streamly.Internal.Data.Array.Storable.Foreign as A

48import qualified Streamly.Internal.Data.Array.Storable.Foreign.Types as AT

45import qualified Streamly.Internal.Data.Array.Storable.Foreign.Types as AT