6b98e07 · streamly · git.iko.soy

benchmark/Concurrent.hs+1−1

@@ -39,7 +39,7 @@ concated buflen threads d elems t =

39 $ adapt

40 $ maxThreads (-1)

41 $ maxBuffer buflen

42− $ S.concatMapBy t work

42+ $ S.concatMapWith t work

43 $ S.replicate threads elems

44

45appendGroup :: Int -> Int -> Int -> [Benchmark]

benchmark/NanoBenchmarks.hs+1−1

@@ -12,7 +12,7 @@ import Streamly.SVar (MonadAsync)

12import qualified Streamly.Memory.Array as A

13import qualified Streamly.FileSystem.Handle as FH

14import qualified Streamly.Fold as FL

15−import qualified Streamly.Internal as Internal

15+import qualified Streamly.Internal.Prelude as Internal

16import qualified Streamly.Prelude as S

17import qualified Streamly.Streams.StreamK as K

18

src/Streamly/Memory/Array/Types.hs+5−1

@@ -946,7 +946,11 @@ instance Storable a => Semigroup (Array a) where

946nullForeignPtr :: ForeignPtr a

947nullForeignPtr = ForeignPtr nullAddr# (error "nullForeignPtr")

948

949+nil ::

950+#ifdef DEVBUILD

951+ Storable a =>

952+#endif

949−nil :: Array a

953+ Array a

950nil = Array nullForeignPtr (Ptr nullAddr#) (Ptr nullAddr#)

954nil = Array nullForeignPtr (Ptr nullAddr#) (Ptr nullAddr#)

951

955

952instance Storable a => Monoid (Array a) where

956instance Storable a => Monoid (Array a) where