blob: ceee03874f66ed4378d26d052cf45afccfb5f530 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
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
|