tests: don't use obsolete rootComp

fsbolero · Dec 8, 2024 · bfc0017 · bfc0017
1 parent e3c4d81
commit bfc0017
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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<ViewItem,_,_> (k, v) dispatch { attr.empty() })
+            comp<ViewItem,_,_> (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<ViewItemPage,_,_> (k, model.items[k]) dispatch { attr.empty() }
+            | Item k -> comp<ViewItemPage,_,_> (k, model.items[k]) dispatch { attr.empty() }
     }
 
 type MyApp() =