From 8d23a029c57be92a7aed0f18d9fcf1c931c1038e Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 16:40:45 +0100
Subject: Reformat

---
 editor/actions/export.ml | 50 ++++++++++++++++++++++--------------------------
 1 file changed, 23 insertions(+), 27 deletions(-)

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

diff --git a/editor/actions/export.ml b/editor/actions/export.ml
index 27c6a26..3c70bd3 100755
--- a/editor/actions/export.ml
+++ b/editor/actions/export.ml
@@ -2,35 +2,31 @@ module Js = Js_of_ocaml.Js
 module App = Editor_app
 
 module M = struct
-
   type t = unit
 
-  let process
-    : t -> State.t -> State.t
-    = fun _ state ->
-
-      (* Save this as a json element. The text may contains UTF-16 characters,
-         which will raise an error in the btoa function.
-
-         As an easy solution, we convert them into UTF-8 through the native
-         OCaml representation of string.
-      *)
-      let json = State.Storage.to_json ()
-                 |> Jstr.to_string (* Encode into UTF-8 *)
-                 |> Obj.magic      (* Then type the element again as a string. *)
-      in
-      Elements.Transfert.send
-        ~mime_type:(Jstr.v "application/json")
-        ~filename:(Jstr.v "export.json")
-        json;
-
-      (* The function does not actually update the state, and return it
-         unchanged *)
-      state
-
+  let process : t -> State.t -> State.t =
+   fun _ state ->
+    (* Save this as a json element. The text may contains UTF-16 characters,
+       which will raise an error in the btoa function.
+
+       As an easy solution, we convert them into UTF-8 through the native
+       OCaml representation of string.
+    *)
+    let json =
+      State.Storage.to_json ()
+      |> Jstr.to_string (* Encode into UTF-8 *)
+      |> Obj.magic
+      (* Then type the element again as a string. *)
+    in
+    Elements.Transfert.send
+      ~mime_type:(Jstr.v "application/json")
+      ~filename:(Jstr.v "export.json")
+      json;
+
+    (* The function does not actually update the state, and return it
+       unchanged *)
+    state
 end
 
 (** Create a new element *)
-let create
-  : unit -> App.event
-  = fun () -> App.dispatch (module M) ()
+let create : unit -> App.event = fun () -> App.dispatch (module M) ()
-- 
cgit v1.2.3