From 9ce0018506e75c692dad3f9f74ce58245b7c6a7f Mon Sep 17 00:00:00 2001
From: Vincent Bernardoff <vb@luminar.eu.org>
Date: Thu, 27 Sep 2018 18:25:04 +0800
Subject: [PATCH] Ledger: match error codes with V1.4.0

---
 vendors/ocaml-ledger-wallet/src/transport.ml  | 11 +++++++++++
 vendors/ocaml-ledger-wallet/src/transport.mli |  5 +++++
 2 files changed, 16 insertions(+)

diff --git a/vendors/ocaml-ledger-wallet/src/transport.ml b/vendors/ocaml-ledger-wallet/src/transport.ml
index eab3a7f41..009c50a59 100644
--- a/vendors/ocaml-ledger-wallet/src/transport.ml
+++ b/vendors/ocaml-ledger-wallet/src/transport.ml
@@ -20,13 +20,18 @@ module Status = struct
   type t +=
     | Invalid_pin of int
     | Incorrect_length
+    | Incorrect_length_for_ins
     | Incompatible_file_structure
     | Security_status_unsatisfied
+    | Hid_required
     | Conditions_of_use_not_satisfied
     | Incorrect_data
     | File_not_found
+    | Parse_error
     | Incorrect_params
+    | Incorrect_class
     | Ins_not_supported
+    | Memory_error
     | Technical_problem of int
     | Ok
     | Unknown of int
@@ -35,12 +40,18 @@ module Status = struct
     | 0x6700 -> Incorrect_length
     | 0x6981 -> Incompatible_file_structure
     | 0x6982 -> Security_status_unsatisfied
+    | 0x6983 -> Hid_required
     | 0x6985 -> Conditions_of_use_not_satisfied
     | 0x6a80 -> Incorrect_data
     | 0x9404 -> File_not_found
+    | 0x9405 -> Parse_error
     | 0x6b00 -> Incorrect_params
+    | 0x6c00 -> Incorrect_length
     | 0x6d00 -> Ins_not_supported
+    | 0x6e00 -> Incorrect_class
     | 0x9000 -> Ok
+    | 0x917e -> Incorrect_length_for_ins
+    | 0x9200 -> Memory_error
     | v when v >= 0x63c0 && v <= 0x63cf -> Invalid_pin (v land 0x0f)
     | v when v >= 0x6f00 && v <= 0x6fff -> Technical_problem (v land 0xff)
     | v -> Unknown v
diff --git a/vendors/ocaml-ledger-wallet/src/transport.mli b/vendors/ocaml-ledger-wallet/src/transport.mli
index 4edc1467a..f235a3b16 100644
--- a/vendors/ocaml-ledger-wallet/src/transport.mli
+++ b/vendors/ocaml-ledger-wallet/src/transport.mli
@@ -8,13 +8,18 @@ module Status : sig
   type t +=
     | Invalid_pin of int
     | Incorrect_length
+    | Incorrect_length_for_ins
     | Incompatible_file_structure
     | Security_status_unsatisfied
+    | Hid_required
     | Conditions_of_use_not_satisfied
     | Incorrect_data
     | File_not_found
+    | Parse_error
     | Incorrect_params
+    | Incorrect_class
     | Ins_not_supported
+    | Memory_error
     | Technical_problem of int
     | Ok