netogallo

and FusionType<'a> = {index : int;value : 'a []}

and [<Sealed>] StreamFusion<'a> [<JavaScript>] (s : Stream<'a []>) =

    [<JavaScript>]
    let mutable lastGood = 
        match s.Latest with
            | Success xs -> Array.map (fun x -> Success x) xs
            | Failure msg -> Array.init 1 (fun _ -> Failure msg)