Generalize %~ to polymorphic update.

fused-effects · Oct 18, 2020 · 161652c · 161652c
1 parent c89b866
commit 161652c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Control/Effect/Parser/Lens.hs b/src/Control/Effect/Parser/Lens.hs
@@ -25,7 +25,7 @@ l .~ b = coerce . l (const (Identity b))
 
 infixr 4 .~
 
-(%~) :: Lens' s a -> (a -> a) -> s -> s
+(%~) :: Lens s t a b -> (a -> b) -> s -> t
 l %~ f = runIdentity . l (Identity . f)
 {-# INLINE (%~) #-}