aboutsummaryrefslogtreecommitdiffstats
path: root/app/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/Main.hs')
-rw-r--r--app/Main.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/app/Main.hs b/app/Main.hs
index aa9ca72..5ac9b97 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -101,11 +101,11 @@ component =
render :: (MonadDOM m, MonadUnliftIO m) => [Chat] -> H.ComponentHTML Action slots m
render chats =
HH.div_
- ( Protolude.map
+ ( fmap
( \(index, (Chat chatMessages draft)) ->
HH.div_
[ HH.div_
- ( Protolude.map
+ ( fmap
( \(Message message) ->
HH.text message
)
@@ -131,7 +131,7 @@ component =
DraftChanged index draft -> do
modify
( \chats ->
- Protolude.map
+ fmap
( \(indexOther, chat) ->
if indexOther == index
then
@@ -144,7 +144,7 @@ component =
DraftSubmitted index -> do
modify
( \chats ->
- Protolude.map
+ fmap
( \(indexOther, chat) ->
if indexOther == index
then