[sc-39872] Add new renderConcat to Array functions

src/DOM/Erumu/Array.purs

@@ -17,16 +17,17 @@ in the array Msg type and used for routing during processing.
 module DOM.Erumu.Array
   ( Msg(..)
   , render
+  , renderConcat
   , renderLift
   , update
-  , updateF
   , updateArrayWith
+  , updateF
   ) where
 
 import Prelude
 
 import Data.Identity (Identity(..))
-import Data.Array (updateAt, mapWithIndex, (!!))
+import Data.Array (updateAt, mapWithIndex, (!!), concat)
 import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Traversable (sequence)
 import Data.Newtype (unwrap)
@@ -62,6 +63,16 @@ renderLift renderItem items =
   where
   renderIdx idx item = renderItem (Msg idx) idx item
 
+renderConcat ::
+  forall msg model.
+  (model -> Array (HTML msg)) ->
+  Array model ->
+  Array (HTML (Msg msg))
+renderConcat renderItem items =
+  concat $ mapWithIndex renderIdx items
+  where
+  renderIdx idx item = map (Msg idx) <$> (renderItem item)
+
 update ::
   forall m msg model.
   Applicative m =>