Removed the application mecanism from the state module

2 files changed, 0 insertions, 19 deletions

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