editor/actions/load_page.ml


1
2
3
4
5
6
7
8
9
10
11
12

module M = struct

  type t = Jstr.t option

  let apply
    : t -> State.t -> State.t
    = fun page_id state ->
      let json = State.Storage.load page_id in
      State.load_page page_id state json

end