Remove _dparse
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
c9fc81d05d
commit
c4cc9ed54c
|
@ -7,20 +7,6 @@ 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 _dparse =
|
|
||||||
let open Dsexp.Of_sexp in
|
|
||||||
peek_exn >>= function
|
|
||||||
| List (_, [_; Atom (_, A "as"); _]) ->
|
|
||||||
enter
|
|
||||||
(let%map src = Path_dsexp.dparse
|
|
||||||
and () = junk
|
|
||||||
and dst = Path_dsexp.dparse
|
|
||||||
in
|
|
||||||
{ src; dst })
|
|
||||||
| sexp ->
|
|
||||||
Dsexp.Of_sexp.of_sexp_errorf (Dsexp.Ast.loc sexp)
|
|
||||||
"(<file> as <file>) expected"
|
|
||||||
|
|
||||||
let _sexp_of_t { src; dst } =
|
let _sexp_of_t { src; dst } =
|
||||||
Sexp.List
|
Sexp.List
|
||||||
[ Path.sexp_of_t src
|
[ Path.sexp_of_t src
|
||||||
|
|
Loading…
Reference in New Issue