From 6aca27e17d2beb7325c8e8259de238a327451a59 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Mon, 3 Mar 2025 16:34:58 +0100
Subject: drop `Slots`

---
 app/Main.hs | 4 +---
 1 file changed, 1 insertion(+), 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_
-- 
cgit v1.2.3