module Data.Repa.Array.Internals.Operator.Insert
(insert)
where
import Data.Repa.Array.Generic.Index as A
import Data.Repa.Array.Meta.Tuple as A
import Data.Repa.Array.Internals.Bulk as A
import Data.Repa.Array.Internals.Target as A
import Data.Repa.Eval.Stream as A
import qualified Data.Repa.Stream as S
#include "repa-array.h"
insert :: (BulkI lSrc a, TargetI lDst a)
=> Name lDst
-> (Int -> Maybe a)
-> Array lSrc a
-> Array lDst a
insert nDst fNew aSrc
= A.unstreamToArray nDst
$ S.insertS fNew
$ A.streamOfArray aSrc