ex.elm

case msg of
    AddUserResponse newUsers ->
        let
            (newUserList, cmd) =
                RemoteData.update \(ls -> (List.append ls newUsers, Cmd.none)) model.users
        in
            ( { model | users = newUserList }, cmd )
        

---- 


case msg of
    AddUserResponse newUsers ->
        let
            appendRemoteUsers ls =
                RemoteData.Success <. List.append ls newUsers
        in
            ( { model | users = RemoteData.andThen appendRemoteUsers model.users }, Cmd.none)