Skip to content

Commit

Permalink
Merge pull request #2 from slamdata/ps-0.11
Browse files Browse the repository at this point in the history
Update for PureScript 0.11 and Halogen 2.x
  • Loading branch information
garyb authored Jun 13, 2017
2 parents 49bfe36 + 5eb99ba commit 63ccce1
Show file tree
Hide file tree
Showing 3 changed files with 7 additions and 7 deletions.
2 changes: 1 addition & 1 deletion bower.json
Original file line number Diff line number Diff line change
Expand Up @@ -15,6 +15,6 @@
"package.json"
],
"dependencies": {
"purescript-halogen": "^1.0.0"
"purescript-halogen": "^2.1.0"
}
}
6 changes: 3 additions & 3 deletions package.json
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
"build": "pulp build -- --censor-lib --strict"
},
"devDependencies": {
"pulp": "^10.0.1",
"purescript": "^0.10.7",
"purescript-psa": "^0.4.0",
"pulp": "^11.0.0",
"purescript": "^0.11.5",
"purescript-psa": "^0.5.1",
"rimraf": "^2.6.1"
},
"dependencies": {
Expand Down
6 changes: 3 additions & 3 deletions src/Halogen/VirtualDOM/Driver.purs
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@ module Halogen.VirtualDOM.Driver
import Prelude

import Control.Monad.Aff (Aff)
import Control.Monad.Eff (Eff)
import Control.Monad.Eff (Eff, kind Effect)
import Control.Monad.Eff.Class (liftEff)
import Control.Monad.Eff.Ref (Ref, modifyRef, newRef, readRef)

Expand All @@ -42,7 +42,7 @@ import Halogen.VirtualDOM.Renderer (renderHTML)

import Halogen.Aff.Driver (HalogenIO)

newtype RenderState s (f :: * -> *) (g :: * -> *) p o (eff :: # !) =
newtype RenderState s (f :: Type -> Type) (g :: Type -> Type) p o (eff :: # Effect) =
RenderState
{ keyId :: Int
, node :: HTMLElement
Expand Down Expand Up @@ -92,7 +92,7 @@ mkRenderSpec element fresh =
modifyRef fresh (_ + 1)
keyId <- readRef fresh
node <- V.createElement vtree
appendChild (htmlElementToNode node) (htmlElementToNode element)
_ <- appendChild (htmlElementToNode node) (htmlElementToNode element)
pure $ RenderState { keyId, vtree, node }
Just (RenderState r) -> do
node <- V.patch (V.diff r.vtree vtree) r.node
Expand Down

0 comments on commit 63ccce1

Please sign in to comment.