From c6265278f05aa4d3af60e420f2d4d13e4bce8ad7 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Fri, 3 Dec 2021 04:19:53 +0100
Subject: Removed the application mecanism from the state module

---
 editor/state/state.ml  |  4 ----
 editor/state/state.mli | 15 ---------------
 2 files changed, 19 deletions(-)

(limited to 'editor/state')

diff --git a/editor/state/state.ml b/editor/state/state.ml
index 2662a48..33b796f 100755
--- a/editor/state/state.ml
+++ b/editor/state/state.ml
@@ -14,7 +14,6 @@ type t =
   ; window : Brr.El.t list
   ; pm : PM.t
   }
-type state = t
 
 (** Compare two states together.
 
@@ -108,6 +107,3 @@ let init
     ; window = []
     ; pm
     }
-
-
-include Application.Make(struct type t = state end)
diff --git a/editor/state/state.mli b/editor/state/state.mli
index 4376723..57b45fa 100755
--- a/editor/state/state.mli
+++ b/editor/state/state.mli
@@ -31,18 +31,3 @@ val new_page
 (** Initialise a new state *)
 val init
   : Prosemirror.t -> Prosemirror.View.editor_view Js.t -> float -> Jstr.t option ->  t
-
-type state = t
-module type Event = sig
-
-  type t
-
-  val update: t -> state -> state
-
-end
-
-type event = E : 'a * (module Event with type t = 'a) -> event
-
-(** Simple helper for the main event loop *)
-val run
-  : ?eq:(t -> t -> bool) -> t -> event Note.E.t -> state Note.S.t
-- 
cgit v1.2.3