From 3729e4f3cef51ca52857fddb45606843136bd05c Mon Sep 17 00:00:00 2001
From: Benjamin Canou <benjamin@canou.fr>
Date: Tue, 13 Feb 2018 23:49:04 +0100
Subject: [PATCH] Client: restore alias autocompletion

---
 src/lib_client_base/client_aliases.ml | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/lib_client_base/client_aliases.ml b/src/lib_client_base/client_aliases.ml
index bbab98779..eb4776a06 100644
--- a/src/lib_client_base/client_aliases.ml
+++ b/src/lib_client_base/client_aliases.ml
@@ -182,9 +182,11 @@ module Alias = functor (Entity : Entity) -> struct
   let alias_param
       ?(name = "name") ?(desc = "existing " ^ Entity.name ^ " alias") next =
     param ~name ~desc
-      (parameter (fun (cctxt : #Client_commands.wallet) s ->
-           find cctxt s >>=? fun v ->
-           return (s, v)))
+      (parameter
+         ~autocomplete
+         (fun (cctxt : #Client_commands.wallet) s ->
+            find cctxt s >>=? fun v ->
+            return (s, v)))
       next
 
   type fresh_param = Fresh of string