在 Elm 0.19 中合并具有可扩展记录的模型

Question

我定义了一个可扩展的记录

type alias Saved a =
  { a
    | x : Int
    , y : String
  }

和一个 Model基于此:

type alias Model =
  Saved { z : Float }

然后我将 JSON 加载并解码为 Saved {} :

let
  received =
    Decode.decodeValue savedDecoder json |> Result.toMaybe
in
(Maybe.map
  (\r ->
    { model
    | x = r.x
    , y = r.y
    }
  )
  received
  |> Maybe.withDefault model

有没有办法合并现有的 model与 received不涉及单独复制每个字段的可扩展记录，类似于 ES6 Object.assign功能？

Answer 1

事情就是这样完成的。或者，您可以模式匹配参数:

Maybe.map
  (\{x, y} ->
    { model
    | x = x
    , y = y
    }
  )