From f382decd8e14ef47f53f857ef90779abf20a7d39 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Mon, 3 Mar 2025 11:40:44 +0100 Subject: `HH.div []` -> `HH.div_` --- app/Main.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'app/Main.hs') diff --git a/app/Main.hs b/app/Main.hs index b71fefd..ad9b3ea 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -103,14 +103,11 @@ component = render :: (MonadDOM m, MonadUnliftIO m) => [Chat] -> H.ComponentHTML Action Slots m render chats = L.runLayoutM Horizontal $ L.do - HH.div - [] + HH.div_ ( Protolude.map ( \(index, (Chat chatMessages draft)) -> - HH.div - [] - [ HH.div - [] + HH.div_ + [ HH.div_ ( Protolude.map ( \(Message message) -> HH.text message -- cgit v1.2.3