Syntax 如何更新模型中的字段/值？

如果我的模型看起来像：

type alias Application = { id : Int , term : Int , amount : Int }  
type alias Model = { application : Application }

我试图更新

术语

值，我在updatecase语句中的输入上有

onInput UpdateTerm

，如何更新该值

---

到目前为止，我有

UpdateTerm术语->但不确定如何仅更新应用程序中的
术语
值？
记录字段更新在和中进行了说明。更新嵌套在另一条记录中的记录中的字段只需一个接一个地进行即可。假设您有一个名为
model
的绑定：

let
    application =
        model.application

    updatedApplication =
        { application | term = term }
in
{ model | application = updatedApplication }

为了获得更好的可读性，您可以使用以下函数：

update msg model = 
    case msg of
       changeNestedProperty property -> 
            ({ model | record= setNestedProperty property model.record } , Cmd.none)

setNestedProperty : String -> Record-> Record
setNestedProperty property record = 
   { record | nestedProperty = property }