Don't print a long string on timeout (#155)

comby-tools · Dec 12, 2019 · 8f71ec8 · 8f71ec8
1 parent b47825a
commit 8f71ec8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/configuration/command_input.ml b/lib/configuration/command_input.ml
@@ -13,5 +13,5 @@ let show_input_kind =
   function
   | `Paths _ -> Format.sprintf "Paths..."
   | `Path path -> Format.sprintf "Path: %s" path
-  | `String s -> Format.sprintf "String: %s" s
+  | `String _ -> Format.sprintf "A long string..."
   | `Zip _ -> Format.sprintf "Zip..."