Equivalent of Haskell's `sequence` function for Elm

sequence.elm

sequenceResult : List (Result.Result a b) -> Result a (List b)
sequenceResult lst =
  case lst of
    x :: xs ->
      x `Result.andThen` (\xval ->
        (sequenceResult xs) `Result.andThen` (\xsval ->
          Ok (xval::xsval)))
    [] -> Ok []