From 285b6b0bdb07f38695965b281c9010020c75290e Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Sun, 25 Dec 2016 12:11:11 +0700
Subject: Remove square brackets around the path string from
 Util.string_of_path They are trivial to add with printf when needed anyway,
 and this function is useful for generating commands from a tree.

---
 src/util.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/util.ml b/src/util.ml
index f8c3c27..b45f011 100644
--- a/src/util.ml
+++ b/src/util.ml
@@ -18,5 +18,5 @@ let string_of_path path =
         | x :: xs' -> aux xs' (Printf.sprintf "%s %s" acc x)
     in
     match path with
-    | [] -> "[]"
-    | x :: xs -> Printf.sprintf "[%s%s]" x (aux xs "")
+    | [] -> ""
+    | x :: xs -> Printf.sprintf "%s%s" x (aux xs "")
-- 
cgit v1.2.3