From a953d994a2cdfe2fa9492f6d523f103fbd75b8c4 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Mon, 3 Mar 2025 16:41:51 +0100
Subject: `component` -> `chats`

---
 app/Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index bf6e635..54a54e5 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -43,7 +43,7 @@ logStr :: Text -> IO ()
 
 #if defined(javascript_HOST_ARCH)
 attachComponent =
-  HA.awaitBody >>= runUI component ()
+  HA.awaitBody >>= runUI chats ()
 logStr = log
 #else
 attachComponent = panic "This module can only be run on JavaScript"
@@ -87,8 +87,8 @@ data Action = NoOp | DraftChanged Int Text | DraftSubmitted Int
 
 data Query a = NoOpQ
 
-component :: forall m. (MonadDOM m, MonadUnliftIO m) => H.Component Query () [Chat] m
-component =
+chats :: (MonadDOM m, MonadUnliftIO m) => H.Component Query () [Chat] m
+chats =
   H.mkComponent $
     H.ComponentSpec
       { initialState,
-- 
cgit v1.2.3