module M = struct

  type t = Jstr.t option

  let update
    : 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