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