Fix sexp_of_t (Update_file ...)
This commit is contained in:
parent
8c6cffd2df
commit
2a5dc053fb
|
@ -133,7 +133,7 @@ module Mini_shexp = struct
|
||||||
List [Atom "copy-and-add-line-directive"; g x; g y]
|
List [Atom "copy-and-add-line-directive"; g x; g y]
|
||||||
| System x -> List [Atom "system"; f x]
|
| System x -> List [Atom "system"; f x]
|
||||||
| Bash x -> List [Atom "bash"; f x]
|
| Bash x -> List [Atom "bash"; f x]
|
||||||
| Update_file (x, y) -> List [Atom "write-file"; g x; f y]
|
| Update_file (x, y) -> List [Atom "update-file"; g x; f y]
|
||||||
|
|
||||||
let rec fold t ~init:acc ~f =
|
let rec fold t ~init:acc ~f =
|
||||||
match t with
|
match t with
|
||||||
|
|
Loading…
Reference in New Issue