diff --git a/tests/Client/Main.fs b/tests/Client/Main.fs index f455c66..5e23950 100644 --- a/tests/Client/Main.fs +++ b/tests/Client/Main.fs @@ -178,7 +178,7 @@ let viewCollection model dispatch = .AddKey(fun _ -> dispatch AddKey) .RevOrder(model.revOrder, fun rev -> dispatch (SetRevOrder rev)) .Items(forEach items <| fun (KeyValue(k, v)) -> - ecomp (k, v) dispatch { attr.empty() }) + comp (k, v) dispatch { attr.empty() }) .Elt() type ViewItemPage() = @@ -205,7 +205,7 @@ let view js model dispatch = cond model.page <| function | Form -> viewForm js model dispatch | Collection -> viewCollection model dispatch - | Item k -> ecomp (k, model.items[k]) dispatch { attr.empty() } + | Item k -> comp (k, model.items[k]) dispatch { attr.empty() } } type MyApp() =