elmish-store/src/ElmishStore.Example/ModelStore.fs at 3117a80847fe14fb67e490d8656d61434b7eab3b · SelectViewData/elmish-store · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
module ElmishStore.Example.ModelStore

open Elmish
open ElmishStore
open ElmishStore.Example.Model
open Feliz

#if DEBUG

open Elmish.Debug

#endif

let store =
  Program.mkProgram init update (fun _ _ -> ())
  |> ElmishProgram.setup "main"
  #if DEBUG
  |> ElmishProgram.mapProgram Program.withConsoleTrace
  |> ElmishProgram.mapProgram Program.withDebugger
  #endif
  |> ElmishProgram.run

[<Hook>]
let useSelector (selector: Model -> 'a) = React.useElmishStore (store, selector)

[<Hook>]
let useSelectorMemoized (memoizedSelector: Model -> 'a) =
  React.useElmishStoreMemoized (store, memoizedSelector)

let dispatch = store.Dispatch