diff options
Diffstat (limited to 'app/Main.hs')
| -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, |