git.iko.soy/streamly
on master help sign in
Fix warnings due to unused imports and shadowing
commit87421d6d109b462d379b9c0db447622830551885 authorAnurag Hooda <anuraghooda@composewell.com> dateTue 8 Dec 2020, 07:35 (6 years ago) parentf7f8b0a
4 files changed+4−27
compare with master
unifiedsplit
benchmark/Streamly/Benchmark/Data/Unfold.hs+2−2 benchmark/Streamly/Benchmark/Prelude/Serial/Exceptions.hs−7 benchmark/Streamly/Benchmark/Prelude/Serial/Split.hs+1−14 benchmark/Streamly/Benchmark/Unicode/Stream.hs+1−4
benchmark/Streamly/Benchmark/Data/Unfold.hs+2−2
@@ -37,11 +37,11 @@ import qualified Streamly.FileSystem.Handle as FH
3737import qualified Streamly.Internal.Data.Unfold as IUF
3838import qualified Streamly.Prelude as SP
3939import Streamly.Benchmark.CommonH
40−import System.IO (Handle, hClose, hPutChar)
40+import System.IO (Handle, hClose)
4141import Control.Exception (SomeException)
4242
4343import Streamly.Benchmark.Common
44−import Gauge
44+import Gauge hiding (env)
4545import Prelude hiding (concat, take, filter, zipWith, map, mapM, takeWhile)
4646
4747{-# INLINE benchIO #-}
benchmark/Streamly/Benchmark/Prelude/Serial/Exceptions.hs−7
@@ -26,18 +26,11 @@ where
2626import Control.Exception (SomeException)
2727import System.IO (Handle, hClose, hPutChar)
2828import Prelude hiding (last, length)
29−import Streamly.Internal.Data.Array.Storable.Foreign.Types (defaultChunkSize)
3029
31−import qualified Streamly.Data.Fold as FL
32−import qualified Streamly.Unicode.Stream as SS
3330import qualified Streamly.FileSystem.Handle as FH
3431import qualified Streamly.Internal.Data.Unfold as IUF
35−import qualified Streamly.Internal.Unicode.Stream as IUS
3632import 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
3933import qualified Streamly.Internal.Data.Stream.IsStream as IP
40−import qualified Streamly.Data.Array.Storable.Foreign as A
4134import qualified Streamly.Prelude as S
4235
4336import Gauge hiding (env)
benchmark/Streamly/Benchmark/Prelude/Serial/Split.hs+1−14
@@ -24,37 +24,24 @@ module Serial.Split
2424where
2525
2626import Data.Char (ord)
27−import Data.Functor.Identity (runIdentity)
2827import 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
3528import System.IO (Handle)
3629import Prelude hiding (last, length)
3730
3831import qualified Streamly.Data.Fold as FL
39−import qualified Streamly.Unicode.Stream as SS
4032import qualified Streamly.FileSystem.Handle as FH
41−-- import qualified Streamly.Internal.Data.Fold as IFL
4233import qualified Streamly.Internal.Data.Parser as PR
43−import qualified Streamly.Internal.Data.Stream.StreamD as D
4434import qualified Streamly.Internal.Unicode.Stream as IUS
4535import qualified Streamly.Internal.FileSystem.Handle as IFH
4636import 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
4937import qualified Streamly.Internal.Data.Stream.IsStream as IP
5038import qualified Streamly.Prelude as S
5139
5240import Gauge hiding (env)
53−-- import Handle.Common
5441import Streamly.Benchmark.CommonH
5542
5643#ifdef INSPECTION
57−import Streamly.Internal.Data.Stream.StreamD.Type (Step(..), GroupState)
44+import Streamly.Internal.Data.Stream.StreamD.Type (Step(..))
5845
5946import qualified Streamly.Internal.Data.Unfold as IUF
6047
benchmark/Streamly/Benchmark/Unicode/Stream.hs+1−4
@@ -19,10 +19,8 @@
1919{-# OPTIONS_GHC -fplugin Test.Inspection.Plugin #-}
2020#endif
2121
22−import Control.Exception (SomeException)
23−import System.IO (Handle, hClose, hPutChar)
22+import System.IO (Handle)
2423import Prelude hiding (last, length)
25−import Streamly.Internal.Data.Array.Storable.Foreign.Types (defaultChunkSize)
2624
2725import qualified Streamly.Data.Fold as FL
2826import qualified Streamly.Unicode.Stream as SS
@@ -42,7 +40,6 @@ import Streamly.Benchmark.Common
4240#ifdef INSPECTION
4341import Foreign.Storable (Storable)
4442import Streamly.Internal.Data.Stream.StreamD.Type (Step(..))
45−import qualified Streamly.Internal.Data.Stream.StreamD.Type as D
4643import qualified Streamly.Internal.Data.Tuple.Strict as Strict
4744import qualified Streamly.Internal.Data.Array.Storable.Foreign as A
4845import qualified Streamly.Internal.Data.Array.Storable.Foreign.Types as AT