From 2a5dc053fb1d3e71a67d17dc514fca05dfb21a7c Mon Sep 17 00:00:00 2001 From: Jeremie Dimino Date: Wed, 15 Mar 2017 09:15:47 +0000 Subject: [PATCH] Fix sexp_of_t (Update_file ...) --- src/action.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/action.ml b/src/action.ml index 10603102..50e0092f 100644 --- a/src/action.ml +++ b/src/action.ml @@ -133,7 +133,7 @@ module Mini_shexp = struct List [Atom "copy-and-add-line-directive"; g x; g y] | System x -> List [Atom "system"; 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 = match t with