@@ -103,25 +103,25 @@ assign p b = modify (set p b)
103103modifying :: forall s a b m . MonadState s m => Setter s s a b -> (a -> b ) -> m Unit
104104modifying p f = modify (over p f)
105105
106- addModifying :: forall s a m . ( MonadState s m , Semiring a ) => Setter' s a -> a -> m Unit
106+ addModifying :: forall s a m . MonadState s m => Semiring a => Setter' s a -> a -> m Unit
107107addModifying p = modifying p <<< add
108108
109- mulModifying :: forall s a m . ( MonadState s m , Semiring a ) => Setter' s a -> a -> m Unit
109+ mulModifying :: forall s a m . MonadState s m => Semiring a => Setter' s a -> a -> m Unit
110110mulModifying p = modifying p <<< flip mul
111111
112- subModifying :: forall s a m . ( MonadState s m , Ring a ) => Setter' s a -> a -> m Unit
112+ subModifying :: forall s a m . MonadState s m => Ring a => Setter' s a -> a -> m Unit
113113subModifying p = modifying p <<< flip sub
114114
115- divModifying :: forall s a m . ( MonadState s m , EuclideanRing a ) => Setter' s a -> a -> m Unit
115+ divModifying :: forall s a m . MonadState s m => EuclideanRing a => Setter' s a -> a -> m Unit
116116divModifying p = modifying p <<< flip div
117117
118- disjModifying :: forall s a m . ( MonadState s m , HeytingAlgebra a ) => Setter' s a -> a -> m Unit
118+ disjModifying :: forall s a m . MonadState s m => HeytingAlgebra a => Setter' s a -> a -> m Unit
119119disjModifying p = modifying p <<< flip disj
120120
121- conjModifying :: forall s a m . ( MonadState s m , HeytingAlgebra a ) => Setter' s a -> a -> m Unit
121+ conjModifying :: forall s a m . MonadState s m => HeytingAlgebra a => Setter' s a -> a -> m Unit
122122conjModifying p = modifying p <<< flip conj
123123
124- appendModifying :: forall s a m . ( MonadState s m , Semigroup a ) => Setter' s a -> a -> m Unit
124+ appendModifying :: forall s a m . MonadState s m => Semigroup a => Setter' s a -> a -> m Unit
125125appendModifying p = modifying p <<< flip append
126126
127127assignJust :: forall s a b m . MonadState s m => Setter s s a (Maybe b ) -> b -> m Unit
0 commit comments