Remove unused function
This commit is contained in:
parent
a1718510f5
commit
7f0a2d7e12
|
@ -416,20 +416,6 @@ type t =
|
||||||
; action : Mini_shexp.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 sexp_of_t { context; action } =
|
||||||
let fields : Sexp.t list =
|
let fields : Sexp.t list =
|
||||||
[ List [ Atom "action" ; Mini_shexp.sexp_of_t action ]
|
[ List [ Atom "action" ; Mini_shexp.sexp_of_t action ]
|
||||||
|
|
|
@ -60,7 +60,6 @@ type t =
|
||||||
; action : Mini_shexp.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 sexp_of_t : t Sexp.To_sexp.t
|
||||||
val exec : targets:Path.Set.t -> t -> unit Future.t
|
val exec : targets:Path.Set.t -> t -> unit Future.t
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue