Avalonia.FuncUI/community

Hi all,

I'm trying to implement a list of entries (e.g. list of notes) in an app, with the condition that each entry should be easily deletable by pressing a button. Everything has been going fine, except that the deletion part seems to work a bit wonkily - Whenever I press an entry deletion button, instead of sending a message to delete that entry, a removal message with the first entry in that list is sent. Would someone happen to know why this happens, and how to send the correct entry with a button press?

My update function looks like this:

    type Entry = {uid:int}
    type State = { entries: Entry list; uid : int}
    let init = { entries = [];uid = 0 }

    type Msg = Add | Remove of Entry | Reset 

    let update (msg: Msg) (state: State) : State =
        match msg with
        | Add -> { state with entries = List.append [{uid=state.uid}] state.entries;uid = state.uid + 1 }
        | Remove id ->
            let entries = state.entries |> List.filter (fun x -> x <> id )
            { state with entries = entries }
        | Reset -> init

And my view is quite simple as well:

    let emptyEntries =
        StackPanel.create[
            StackPanel.children[
                TextBlock.create [
                    TextBlock.text "No expenses"
                ]
            ]
        ]

    let singleEntry (entry:Entry) dispatch = 
        Button.create [
            Button.content (sprintf "Remove %A" entry.uid)
            Button.onClick (fun _ -> 
                printfn "entry: %A" entry
                dispatch (Remove entry))
        ]

    let existEntries (entries:Entry list) dispatch =
        StackPanel.create[
            StackPanel.children [
                for entry in entries do
                    yield singleEntry entry dispatch
            ]
        ]

    let entryPanel state dispatch = 
        match state.entries with
            | [] -> emptyEntries :> IView
            | xs -> (existEntries xs dispatch) :> IView

    let view (state: State) (dispatch) =
        DockPanel.create [
            DockPanel.children [
                Button.create [
                    Button.dock Dock.Bottom
                    Button.onClick (fun _ -> dispatch Reset)
                    Button.content "reset"
                ]                
                Button.create [
                    Button.dock Dock.Bottom
                    Button.onClick (fun _ -> dispatch Add)
                    Button.content "+"
                ]
                StackPanel.create [
                    StackPanel.dock Dock.Bottom
                    StackPanel.maxHeight 300.0
                    StackPanel.children [ 
                        entryPanel state dispatch
                    ]
                ]
                TextBlock.create [
                   TextBlock.dock Dock.Top
                   TextBlock.fontSize 48.0
                   TextBlock.verticalAlignment VerticalAlignment.Center
                   TextBlock.horizontalAlignment HorizontalAlignment.Center
                   TextBlock.text (string state.uid)
                ]
            ]
        ]

I have a minimal reproducing example here:
https://github.com/Lipastomies/AvaFuncProblem

I'm developing on Win 10, with .NET SDK (5.0.301)

I unfortunately don't have a clue on what I'm doing wrong, so any and all help would be appreciated.