From 1027bf229dc9077c98217ebd632837421d09e98c Mon Sep 17 00:00:00 2001 From: Julien Moutinho 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