Fable: Optionswertausgabe

Es ist wahrscheinlich ein Eckfall, aber es bricht die Repl:

module App

let test xss =
    let f xss = xss |> List.choose (function Some a -> Some a | _ -> None)
    xss |> f |> List.collect (fun xs -> [ for s in xs do yield s ])

[<EntryPoint>]
let main argv =
    let res = test [ Some [ "a" ] ]
    printfn "res: %A" res
    0

Laufzeit Fehler:

Seq.js:470
  }, xs[Symbol.iterator]()));
                        ^

TypeError: xs[Symbol.iterator] is not a function

Im Grunde ist das Problem, dass xs nicht den richtigen Wert hat, der richtige Wert befindet sich in der Eigenschaft xs.value .