]> Git — Sourcephile - haskell/literate-web.git/blob - 0001-mvc-updates-fix-L.pretraverseM.patch
init
[haskell/literate-web.git] / 0001-mvc-updates-fix-L.pretraverseM.patch
1 From 1027bf229dc9077c98217ebd632837421d09e98c Mon Sep 17 00:00:00 2001
2 From: Julien Moutinho <julm+mvc-updates@sourcephile.fr>
3 Date: Sat, 24 Jun 2023 02:35:56 +0200
4 Subject: [PATCH] fix L.pretraverseM
5
6 ---
7 src/MVC/Updates.hs | 2 +-
8 1 file changed, 1 insertion(+), 1 deletion(-)
9
10 diff --git a/src/MVC/Updates.hs b/src/MVC/Updates.hs
11 index 7ad6071..e8ce0fd 100644
12 --- a/src/MVC/Updates.hs
13 +++ b/src/MVC/Updates.hs
14 @@ -161,7 +161,7 @@ instance Applicative Updatable where
15 where
16 f (controllerL, foldL) (controllerR, foldR) = (controllerT, foldT)
17 where
18 - foldT = L.pretraverseM _Left foldL <*> L.pretraverseM _Right foldR
19 + foldT = L.handlesM _Left foldL <*> L.handlesM _Right foldR
20
21 controllerT = fmap Left controllerL <> fmap Right controllerR
22
23 --
24 2.38.4
25