Fable: Problema de valor de opción

Probablemente sea un caso de esquina, pero está rompiendo la respuesta:

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

Error de tiempo de ejecución:

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

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

Básicamente, el problema es que xs no tiene el valor correcto, el valor correcto está en la propiedad xs.value .