Accept (bash ...) in actions

2017-03-03 15:27:57 +00:00 · 2017-03-03 15:27:57 +00:00 · 90c751566b
parent 8ddcf0b160
commit 90c751566b
1 changed files with 1 additions and 0 deletions
--- a/src/action.ml
+++ b/src/action.ml
@ -75,6 +75,7 @@ module T = struct
  let t a sexp =
    match sexp with
    | Atom _ -> Bash  (a              sexp)
+    | List (_, [ Atom (_, "bash"); x ]) -> Bash (a x)
    | List _ -> Shexp (Mini_shexp.t a sexp)

  let map t ~f =