Add withReactHydrate

elmish · Mar 2, 2018 · 92a7b66 · 92a7b66
1 parent 53ce7a1
commit 92a7b66
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/.paket/paket.exe b/.paket/paket.exe
diff --git a/src/react.fs b/src/react.fs
@@ -49,3 +49,15 @@ module Program =
                 )
 
         { program with setState = setState }
+
+    /// Setup rendering of root React component inside html element identified by placeholderId using React.hydrate
+    let withReactHydrate placeholderId (program:Elmish.Program<_,_,_,_>) =
+        let setState dispatch =
+            let viewWithDispatch = program.view dispatch
+            fun model ->
+                Fable.Import.ReactDom.hydrate(
+                    lazyViewWith (fun x y -> obj.ReferenceEquals(x,y)) viewWithDispatch model,
+                    document.getElementById(placeholderId)
+                )
+
+        { program with setState = setState }