diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2025-03-03 16:34:58 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2025-03-03 16:34:58 +0100 |
| commit | 6aca27e17d2beb7325c8e8259de238a327451a59 (patch) | |
| tree | ffd5106b0cee21cf32e1c0e30c2b3ee633df564a | |
| parent | f382decd8e14ef47f53f857ef90779abf20a7d39 (diff) | |
drop `Slots`
| -rw-r--r-- | app/Main.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/app/Main.hs b/app/Main.hs index ad9b3ea..892cbb2 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -85,8 +85,6 @@ testChats = data Action = NoOp | DraftChanged Int Text | DraftSubmitted Int -type Slots = ("debounced" .== H.Slot VoidF () ()) - data Query a = NoOpQ component :: forall m. (MonadDOM m, MonadUnliftIO m) => H.Component Query () [Chat] m @@ -100,7 +98,7 @@ component = where initialState _ = pure testChats - render :: (MonadDOM m, MonadUnliftIO m) => [Chat] -> H.ComponentHTML Action Slots m + render :: (MonadDOM m, MonadUnliftIO m) => [Chat] -> H.ComponentHTML Action slots m render chats = L.runLayoutM Horizontal $ L.do HH.div_ |