Fix build with "dev" flag

This commit is contained in:
Harendra Kumar 2024-02-15 11:11:19 +05:30
parent b2e7d1dabc
commit 8b7e6419b6
2 changed files with 8 additions and 1 deletions

View File

@ -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)

View File

@ -1,4 +1,6 @@
{-# LANGUAGE UnboxedTuples #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoMonoLocalBinds #-}
-- |
-- Module : Data.Primitive.SmallArray