Существует ли оболочка memmove/memcpy для STUArray?

Я переключаю программу с использования MVector Word32 на STUArray Word Word32. В моем векторном коде я использовал unsafeMove для перемещения векторных фрагментов; думая, что это, вероятно, упаковка memmove для эффективности.

case dst ⊕ 3 of
  src | n < src + w -> do
    let w0 = n - src
    let w' = w - w0
    unsafeMove (slice dst w0 v) (slice src w0 v)
    if w' <= 3
      then do
        unsafeMove (slice (n - 3) w' v) (slice 0 w' v)
      else do
        let w'' = w' - 3
        unsafeMove (slice (n - 3) 3 v) (slice 0 3 v)
        unsafeMove (slice 0 w'' v) (slice 3 w'' v)
  src | n < dst + w -> do
    let w1 = n - dst
    let w'' = w - w1
    unsafeMove (slice dst w1 v) (slice src w1 v)
    unsafeMove (slice 0 w'' v) (slice 3 w'' v)
  src -> do
    unsafeMove (slice dst w v) (slice src w v)

Класс типов MArray, похоже, не предоставляет способ перемещения нескольких элементов за один вызов, а только один за другим. Есть ли оболочка для одновременного перемещения нескольких элементов STUArray (или, может быть, ByteArray#)?