mirror of
https://github.com/composewell/streamly.git
synced 2024-10-26 19:50:19 +03:00
Fix build with "dev" flag
This commit is contained in:
parent
b2e7d1dabc
commit
8b7e6419b6
@ -329,7 +329,12 @@ isPinned = MA.isPinned . unsafeThaw
|
||||
-- would make a copy on every splice operation, instead use the
|
||||
-- 'fromChunksK' operation to combine n immutable arrays.
|
||||
{-# INLINE splice #-}
|
||||
splice :: MonadIO m => Array a -> Array a -> m (Array a)
|
||||
splice :: (MonadIO m
|
||||
#ifdef DEVBUILD
|
||||
, Unbox a
|
||||
#endif
|
||||
)
|
||||
=> Array a -> Array a -> m (Array a)
|
||||
splice arr1 arr2 =
|
||||
unsafeFreeze <$> MA.spliceCopy (unsafeThaw arr1) (unsafeThaw arr2)
|
||||
|
||||
|
@ -1,4 +1,6 @@
|
||||
{-# LANGUAGE UnboxedTuples #-}
|
||||
{-# LANGUAGE TypeFamilies #-}
|
||||
{-# LANGUAGE NoMonoLocalBinds #-}
|
||||
|
||||
-- |
|
||||
-- Module : Data.Primitive.SmallArray
|
||||
|
Loading…
Reference in New Issue
Block a user