balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improve display of Ledger apps names/versions

Browse Source
This commit is contained in:
Sebastien Mondet 2018-09-04 22:15:45 -04:00 committed by Pierre Boutillier
parent 18bbfd126b
commit b329b604a7
No known key found for this signature in database
GPG Key ID: C2F73508B56A193C
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
vendors/ocaml-ledger-wallet/src/ledgerwallet_tezos.ml vendored
View File

@ -9,8 +9,8 @@ open Ledgerwallet
module Version = struct module Version = struct
type app_class = Tezos | TezBake type app_class = Tezos | TezBake
let pp_app_class ppf = function let pp_app_class ppf = function
| Tezos -> Format.pp_print_string ppf "Tezos" | Tezos -> Format.pp_print_string ppf "Tezos Wallet"
| TezBake -> Format.pp_print_string ppf "TezBake" | TezBake -> Format.pp_print_string ppf "Tezos Baker"
let class_of_int = function let class_of_int = function
| 0 -> Tezos | 0 -> Tezos
@ -25,7 +25,7 @@ module Version = struct
} }
let pp ppf { app_class ; major ; minor ; patch } = 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 pp_app_class app_class major minor patch
let create ~app_class ~major ~minor ~patch = { let create ~app_class ~major ~minor ~patch = {