diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2025-03-03 16:41:51 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2025-03-03 16:46:06 +0100 |
| commit | a953d994a2cdfe2fa9492f6d523f103fbd75b8c4 (patch) | |
| tree | db1258f6efd506e494ebb148beadaa5c9caff131 | |
| parent | 0c01c9803a74fcfe16c3903bde373e5cb4e99f77 (diff) | |
`component` -> `chats`
| -rw-r--r-- | app/Main.hs | 6 |
1 files 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, |