From b329b604a735cb3a0b12611784860a5cae2a592b Mon Sep 17 00:00:00 2001 From: Sebastien Mondet Date: Tue, 4 Sep 2018 22:15:45 -0400 Subject: [PATCH] Improve display of Ledger apps names/versions --- vendors/ocaml-ledger-wallet/src/ledgerwallet_tezos.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/vendors/ocaml-ledger-wallet/src/ledgerwallet_tezos.ml b/vendors/ocaml-ledger-wallet/src/ledgerwallet_tezos.ml index fd931b0a5..ab738f7af 100644 --- a/vendors/ocaml-ledger-wallet/src/ledgerwallet_tezos.ml +++ b/vendors/ocaml-ledger-wallet/src/ledgerwallet_tezos.ml @@ -9,8 +9,8 @@ open Ledgerwallet module Version = struct type app_class = Tezos | TezBake let pp_app_class ppf = function - | Tezos -> Format.pp_print_string ppf "Tezos" - | TezBake -> Format.pp_print_string ppf "TezBake" + | Tezos -> Format.pp_print_string ppf "Tezos Wallet" + | TezBake -> Format.pp_print_string ppf "Tezos Baker" let class_of_int = function | 0 -> Tezos @@ -25,7 +25,7 @@ module Version = struct } let pp ppf { app_class ; major ; minor ; patch } = - Format.fprintf ppf "%a.%d.%d.%d" + Format.fprintf ppf "%a %d.%d.%d" pp_app_class app_class major minor patch let create ~app_class ~major ~minor ~patch = {