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

Uncomment promotion rules 

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-08-22 16:01:16 +03:00
parent 10e9e72b90
commit c4d460e51a
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/promotion.ml
View File

@ -7,23 +7,26 @@ module File = struct
} }
(* XXX these sexp converters will be useful for the dump command *) (* XXX these sexp converters will be useful for the dump command *)
(* let _t = let _dparse =
* let open Dsexp.Of_sexp in let open Dsexp.Of_sexp in
* peek_exn >>= function peek_exn >>= function
* | List (_, [_; Atom (_, A "as"); _]) -> | List (_, [_; Atom (_, A "as"); _]) ->
* enter enter
* (let % map src = Path.t (let%map src = Path_dsexp.dparse
* and () = junk and () = junk
* and dst = Path.t and dst = Path_dsexp.dparse
* in in
* { src; dst }) { src; dst })
* | sexp -> | sexp ->
* Dsexp.Of_sexp.of_sexp_errorf (Sexp.Ast.loc sexp) Dsexp.Of_sexp.of_sexp_errorf (Dsexp.Ast.loc sexp)
* "(<file> as <file>) expected" *) "(<file> as <file>) expected"
(* let _sexp_of_t { src; dst } = let _sexp_of_t { src; dst } =
* Sexp.List [Path.sexp_of_t src; Sexp.unsafe_atom_of_string "as"; Sexp.List
* Path.sexp_of_t dst] *) [ Path.sexp_of_t src
; Sexp.Atom "as"
; Path.sexp_of_t dst
]
let db : t list ref = ref [] let db : t list ref = ref []