From 005517e849b22ffdfc912ecb1098f8273c433a7a Mon Sep 17 00:00:00 2001
From: Benjamin Canou <benjamin@canou.fr>
Date: Thu, 28 Jun 2018 13:20:22 +0200
Subject: [PATCH] Client: fix command `get script code`

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

diff --git a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml
index 6d768b678..17d29f10b 100644
--- a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml
+++ b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml
@@ -131,9 +131,9 @@ let commands () =
         | Some { code ; storage = _ } ->
             match Script.force_decode code with
             | Error errs -> cctxt#error "%a" (Format.pp_print_list ~pp_sep:Format.pp_print_newline Alpha_environment.Error_monad.pp) errs
-            | Ok code ->
+            | Ok (code, _) ->
                 begin cctxt#answer "%a" Michelson_v1_printer.print_expr_unwrapped code >>= fun () ->
-                  return ()
+                  return_unit
                 end
       end ;