From 1027bf229dc9077c98217ebd632837421d09e98c Mon Sep 17 00:00:00 2001
From: Julien Moutinho <julm+mvc-updates@sourcephile.fr>
Date: Sat, 24 Jun 2023 02:35:56 +0200
Subject: [PATCH] fix L.pretraverseM
---
src/MVC/Updates.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MVC/Updates.hs b/src/MVC/Updates.hs
index 7ad6071..e8ce0fd 100644
--- a/src/MVC/Updates.hs
+++ b/src/MVC/Updates.hs
@@ -161,7 +161,7 @@ instance Applicative Updatable where
where
f (controllerL, foldL) (controllerR, foldR) = (controllerT, foldT)
where
- foldT = L.pretraverseM _Left foldL <*> L.pretraverseM _Right foldR
+ foldT = L.handlesM _Left foldL <*> L.handlesM _Right foldR
controllerT = fmap Left controllerL <> fmap Right controllerR
--
2.38.4