From 52cbf99e0db1c0fb7b44f4101c6a673d9ec1fbbe Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 15:48:26 +0100
Subject: Update application workflow

---
 script.it/state/state.ml | 18 +-----------------
 1 file changed, 1 insertion(+), 17 deletions(-)

(limited to 'script.it/state/state.ml')

diff --git a/script.it/state/state.ml b/script.it/state/state.ml
index e8cd87e..f3be91d 100755
--- a/script.it/state/state.ml
+++ b/script.it/state/state.ml
@@ -19,17 +19,7 @@ type state =
   ; mouse_down_position : Gg.v2
   }
 
-module type Handler = sig
-
-  type t
-
-  val update: t -> state -> state
-
-end
-
-type t = E : 'a * (module Handler with type t = 'a) -> t
-
-type events = t
+include Application.Make(struct type t = state end)
 
 let post
   : Brr_webworkers.Worker.t -> Worker_messages.to_worker -> unit
@@ -73,12 +63,6 @@ let select_segment _ (_, selected, p0, p1) state dist =
   ; width }
 
 
-let do_action
-  : (events, state) Application.t
-  = fun (E (t, (module Handler))) state ->
-    Handler.update t state
-
-
 let init =
   { paths = []
   ; current = Path.Path_Builder.empty
-- 
cgit v1.2.3