From fe2cced55e1b44dbae57e55fe0f459c85e7369cb Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 16:21:26 +0100
Subject: Application unification

---
 editor/actions/load_page.ml | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 editor/actions/load_page.ml

(limited to 'editor/actions/load_page.ml')

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
+
-- 
cgit v1.2.3