Skip to content

Commit 919a257

Browse files
authored
Merge pull request #8 from coot/purescript-0.11
updates for purescript-0.11
2 parents f695222 + 04c402f commit 919a257

File tree

2 files changed

+8
-12
lines changed

2 files changed

+8
-12
lines changed

bower.json

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@
1616
"!src/**/*"
1717
],
1818
"dependencies": {
19-
"purescript-profunctor-lenses": "^2.1.0",
20-
"purescript-react": "^2.0.0"
19+
"purescript-profunctor-lenses": "^3.2.0",
20+
"purescript-react": "^3.0.0"
2121
}
2222
}

src/React/Redux.purs

Lines changed: 6 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -34,20 +34,16 @@ module React.Redux
3434
, fromEnhancerForeign
3535
) where
3636

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)
4039
import Control.Monad.Eff.Class (class MonadEff, liftEff)
41-
4240
import Data.Either (Either, either)
4341
import Data.Function.Uncurried (Fn2, Fn3, runFn2, runFn3)
4442
import Data.Lens (Getter', Lens', Prism', matching, set, to, view)
4543
import Data.Tuple (Tuple(..), fst)
46-
44+
import Prelude (Unit, (>>=), (<<<), const, pure, id, unit)
4745
import Unsafe.Coerce (unsafeCoerce)
4846

49-
import React as React
50-
5147
type ReduxReactClass' state props = ReduxReactClass state Unit props
5248

5349
type Reducer action state = action -> state -> state
@@ -165,11 +161,11 @@ reducerOptic lens prism k action state = either (const state) (\a -> set lens (k
165161
action' :: Either action action'
166162
action' = matching prism action
167163

168-
foreign import data REDUX :: !
164+
foreign import data REDUX :: Effect
169165

170-
foreign import data Store :: * -> * -> *
166+
foreign import data Store :: Type -> Type -> Type
171167

172-
foreign import data ReduxReactClass :: * -> * -> * -> *
168+
foreign import data ReduxReactClass :: Type -> Type -> Type -> Type
173169

174170
foreign import connect_ :: forall state props props'. Fn3 (state -> props -> Tuple state props) (Tuple state props -> props') (React.ReactClass props') (ReduxReactClass state props props')
175171

0 commit comments

Comments
 (0)