Fix build with "dev" flag
commit6b98e076d21bbdb88ce6693fe52c561e2939478b
authorHarendra Kumar <harendra.kumar@gmail.com>
dateSat 21 Sep 2019, 21:18 (7 years ago)
parentb051167
benchmark/Concurrent.hs+1−1
@@ -39,7 +39,7 @@ concated buflen threads d elems t =
3939 $ adapt
4040 $ maxThreads (-1)
4141 $ maxBuffer buflen
42− $ S.concatMapBy t work
42+ $ S.concatMapWith t work
4343 $ S.replicate threads elems
4444
4545appendGroup :: Int -> Int -> Int -> [Benchmark]
benchmark/NanoBenchmarks.hs+1−1
@@ -12,7 +12,7 @@ import Streamly.SVar (MonadAsync)
1212import qualified Streamly.Memory.Array as A
1313import qualified Streamly.FileSystem.Handle as FH
1414import qualified Streamly.Fold as FL
15−import qualified Streamly.Internal as Internal
15+import qualified Streamly.Internal.Prelude as Internal
1616import qualified Streamly.Prelude as S
1717import qualified Streamly.Streams.StreamK as K
1818
src/Streamly/Memory/Array/Types.hs+5−1
@@ -946,7 +946,11 @@ instance Storable a => Semigroup (Array a) where
946946nullForeignPtr :: ForeignPtr a
947947nullForeignPtr = ForeignPtr nullAddr# (error "nullForeignPtr")
948948
949−nil :: Array a
949+nil ::
950+#ifdef DEVBUILD
951+ Storable a =>
952+#endif
953+ Array a
950954nil = Array nullForeignPtr (Ptr nullAddr#) (Ptr nullAddr#)
951955
952956instance Storable a => Monoid (Array a) where