From 08db7797d83cfb4a81b6c17602604a74a1747f8f Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Mon, 3 Mar 2025 16:36:59 +0100
Subject: `Protolude.map` -> `fmap`
---
app/Main.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
(limited to 'app')
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
--
cgit v1.2.3