module M = struct type t = Jstr.t option let update : t -> State.t -> State.t = fun page_id state -> State.load_page page_id state end