diff options
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 |