Модель слияния с расширяемой записью в 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
    }
  )