@@ -30,7 +30,7 @@ import Control.Monad.Eff.Class (class MonadEff, liftEff)
30
30
31
31
import Data.Either (Either , either )
32
32
import Data.Function.Uncurried (Fn2 , runFn2 )
33
- import Data.Lens (GetterP , LensP , PrismP , matching , set , view )
33
+ import Data.Lens (Getter' , Lens' , Prism' , matching , set , view )
34
34
35
35
import Unsafe.Coerce (unsafeCoerce )
36
36
@@ -92,7 +92,7 @@ spec getInitialState render =
92
92
spec' :: forall props eff f action . Render props Unit eff f action -> Spec props Unit eff f action
93
93
spec' = spec (\_ _ -> pure unit)
94
94
95
- createClass :: forall props state eff f action state' . MonadEff (Effects eff ) f => GetterP state' props -> Spec props state eff f action -> ReduxReactClass state' props
95
+ createClass :: forall props state eff f action state' . MonadEff (Effects eff ) f => Getter' state' props -> Spec props state eff f action -> ReduxReactClass state' props
96
96
createClass lens spec_ = connect (view lens) reactClass
97
97
where
98
98
reactClass :: React.ReactClass props
@@ -122,7 +122,7 @@ createElement store reduxClass =
122
122
createStore :: forall eff action state . Reducer action state -> state -> Eff (Effects eff ) (Store action state )
123
123
createStore = runFn2 createStore_
124
124
125
- reducerOptic :: forall state state' action action' . LensP state state' -> PrismP action action' -> Reducer action' state' -> Reducer action state
125
+ reducerOptic :: forall state state' action action' . Lens' state state' -> Prism' action action' -> Reducer action' state' -> Reducer action state
126
126
reducerOptic lens prism k action state = either (const state) (\a -> set lens (k a state') state) action'
127
127
where
128
128
state' :: state'
0 commit comments