From bfc0017f1a5d45740dbb5054f5b4eb4bafed8479 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Denuzi=C3=A8re?= <loic@denuziere.net>
Date: Sun, 8 Dec 2024 15:09:54 +0100
Subject: [PATCH] tests: don't use obsolete rootComp

---
 tests/Client/Main.fs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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<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() =