matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove unused function

This commit is contained in:
Jérémie Dimino 2017-05-28 00:20:20 +01:00
parent a1718510f5
commit 7f0a2d7e12
2 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/action.ml
View File

@ -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 ]

1
src/action.mli
View File

@ -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