Cleanup

Plutonomicon · Aug 3, 2022 · 331c1ad · 331c1ad
1 parent 40da02f
commit 331c1ad
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/Plutarch/CPS/Optics/Prism.hs b/Plutarch/CPS/Optics/Prism.hs
@@ -37,9 +37,8 @@ instance CProfunctor r (ConcretePrism r a b) where
   cdimap ab cd p
     = ConcretePrism
     { cprismGet =
-      (\a ->
-        ab a >>=
-          cprismGet p >>=
+      (ab >=>
+          cprismGet p >=>
             either
               (\c -> c >>= cd >>= return . Left . return)
               (return . Right)