diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2025-03-03 16:36:59 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2025-03-03 16:36:59 +0100 |
| commit | 08db7797d83cfb4a81b6c17602604a74a1747f8f (patch) | |
| tree | fc4f951a001fddd9bb0c919697383f6f2ce865a0 | |
| parent | 57f0cb00a13cc9b8687c2693b7812be0c88bf03a (diff) | |
`Protolude.map` -> `fmap`
| -rw-r--r-- | app/Main.hs | 8 |
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 |