diff options
author | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:21:26 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
commit | fe2cced55e1b44dbae57e55fe0f459c85e7369cb (patch) | |
tree | e7ca5f015da050b37aa759a277198512236c97f5 /editor/actions/load_page.ml | |
parent | 1eeaf137bd30aff1bef34d05eeec686f6da8959d (diff) |
Application unification
Diffstat (limited to 'editor/actions/load_page.ml')
-rwxr-xr-x | editor/actions/load_page.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/editor/actions/load_page.ml b/editor/actions/load_page.ml new file mode 100755 index 0000000..eb4afac --- /dev/null +++ b/editor/actions/load_page.ml @@ -0,0 +1,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 + |