From 7f0a2d7e126af22be270f90b3d1fd831d1c31a50 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=A9mie=20Dimino?= <jeremie@dimino.org>
Date: Sun, 28 May 2017 00:20:20 +0100
Subject: [PATCH] Remove unused function

---
 src/action.ml  | 14 --------------
 src/action.mli |  1 -
 2 files changed, 15 deletions(-)

diff --git a/src/action.ml b/src/action.ml
index 8b566a32..edf4573d 100644
--- a/src/action.ml
+++ b/src/action.ml
@@ -416,20 +416,6 @@ type t =
   ; action  : Mini_shexp.t
   }
 
-let t contexts sexp =
-  let open Sexp.Of_sexp in
-  let context sexp =
-    let name = string sexp in
-    match String_map.find name contexts with
-    | None   -> of_sexp_errorf sexp "Context %s not found" name
-    | Some c -> c
-  in
-  record
-    (field_o "context" context      >>= fun context ->
-     field   "action"  Mini_shexp.t >>= fun action ->
-     return { context; action })
-    sexp
-
 let sexp_of_t { context; action } =
   let fields : Sexp.t list =
     [ List [ Atom "action" ; Mini_shexp.sexp_of_t action ]
diff --git a/src/action.mli b/src/action.mli
index f5403961..76c3409a 100644
--- a/src/action.mli
+++ b/src/action.mli
@@ -60,7 +60,6 @@ type t =
   ; action  : Mini_shexp.t
   }
 
-val t : Context.t String_map.t -> t Sexp.Of_sexp.t
 val sexp_of_t : t Sexp.To_sexp.t
 val exec : targets:Path.Set.t -> t -> unit Future.t