diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2025-03-03 11:40:44 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2025-03-03 11:40:44 +0100 |
| commit | f382decd8e14ef47f53f857ef90779abf20a7d39 (patch) | |
| tree | d1ff324bde53f42279df1dd40db0d0082dc19cf8 /app/Main.hs | |
| parent | 40a78f042b83346f595ca15daf9145c1d22c5502 (diff) | |
`HH.div []` -> `HH.div_`
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 9 |
1 files changed, 3 insertions, 6 deletions
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 |