@@ -34,20 +34,16 @@ module React.Redux
34
34
, fromEnhancerForeign
35
35
) where
36
36
37
- import Prelude (Unit , (>>=), (<<<), const , pure , id , unit )
38
-
39
- import Control.Monad.Eff (Eff )
37
+ import React as React
38
+ import Control.Monad.Eff (Eff , kind Effect )
40
39
import Control.Monad.Eff.Class (class MonadEff , liftEff )
41
-
42
40
import Data.Either (Either , either )
43
41
import Data.Function.Uncurried (Fn2 , Fn3 , runFn2 , runFn3 )
44
42
import Data.Lens (Getter' , Lens' , Prism' , matching , set , to , view )
45
43
import Data.Tuple (Tuple (..), fst )
46
-
44
+ import Prelude ( Unit , (>>=), (<<<), const , pure , id , unit )
47
45
import Unsafe.Coerce (unsafeCoerce )
48
46
49
- import React as React
50
-
51
47
type ReduxReactClass' state props = ReduxReactClass state Unit props
52
48
53
49
type Reducer action state = action -> state -> state
@@ -165,11 +161,11 @@ reducerOptic lens prism k action state = either (const state) (\a -> set lens (k
165
161
action' :: Either action action'
166
162
action' = matching prism action
167
163
168
- foreign import data REDUX :: !
164
+ foreign import data REDUX :: Effect
169
165
170
- foreign import data Store :: * -> * -> *
166
+ foreign import data Store :: Type -> Type -> Type
171
167
172
- foreign import data ReduxReactClass :: * -> * -> * -> *
168
+ foreign import data ReduxReactClass :: Type -> Type -> Type -> Type
173
169
174
170
foreign import connect_ :: forall state props props' . Fn3 (state -> props -> Tuple state props ) (Tuple state props -> props' ) (React.ReactClass props' ) (ReduxReactClass state props props' )
175
171
0 commit comments