From ae6aa5bf918cbb9eeffe02070ed41b55e114e39d Mon Sep 17 00:00:00 2001
From: Paul Steckler <steck@stecksoft.com>
Date: Wed, 19 Aug 2020 16:00:20 -0700
Subject: [PATCH] Rosetta, Unsigned_extended types for Yojson

---
 src/app/rosetta/lib/block.ml             |  4 ++--
 src/app/rosetta/lib/user_command_info.ml | 22 +++++++++++-----------
 2 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/src/app/rosetta/lib/block.ml b/src/app/rosetta/lib/block.ml
index 50b1dadb551..640220153d9 100644
--- a/src/app/rosetta/lib/block.ml
+++ b/src/app/rosetta/lib/block.ml
@@ -47,8 +47,8 @@ module Internal_command_info = struct
   type t =
     { kind: Kind.t
     ; receiver: [`Pk of string]
-    ; fee: Unsigned.UInt64.t
-    ; token: Unsigned.UInt64.t
+    ; fee: Unsigned_extended.UInt64.t
+    ; token: Unsigned_extended.UInt64.t
     ; hash: string }
   [@@deriving to_yojson]
 
diff --git a/src/app/rosetta/lib/user_command_info.ml b/src/app/rosetta/lib/user_command_info.ml
index 6def99d78e1..b88c443ad7e 100644
--- a/src/app/rosetta/lib/user_command_info.ml
+++ b/src/app/rosetta/lib/user_command_info.ml
@@ -42,8 +42,8 @@ end
 module Account_creation_fees_paid = struct
   type t =
     | By_no_one
-    | By_fee_payer of Unsigned.UInt64.t
-    | By_receiver of Unsigned.UInt64.t
+    | By_fee_payer of Unsigned_extended.UInt64.t
+    | By_receiver of Unsigned_extended.UInt64.t
   [@@deriving eq, to_yojson, sexp, compare]
 end
 
@@ -57,11 +57,11 @@ type t =
   ; fee_payer: [`Pk of string]
   ; source: [`Pk of string]
   ; receiver: [`Pk of string]
-  ; fee_token: Unsigned.UInt64.t
-  ; token: Unsigned.UInt64.t
-  ; fee: Unsigned.UInt64.t
-  ; nonce: Unsigned.UInt32.t
-  ; amount: Unsigned.UInt64.t option
+  ; fee_token: Unsigned_extended.UInt64.t
+  ; token: Unsigned_extended.UInt64.t
+  ; fee: Unsigned_extended.UInt64.t
+  ; nonce: Unsigned_extended.UInt32.t
+  ; amount: Unsigned_extended.UInt64.t option
   ; hash: string
   ; failure_status: Failure_status.t option }
 [@@deriving to_yojson, eq, sexp, compare]
@@ -72,10 +72,10 @@ module Partial = struct
     ; fee_payer: [`Pk of string]
     ; source: [`Pk of string]
     ; receiver: [`Pk of string]
-    ; fee_token: Unsigned.UInt64.t
-    ; token: Unsigned.UInt64.t
-    ; fee: Unsigned.UInt64.t
-    ; amount: Unsigned.UInt64.t option }
+    ; fee_token: Unsigned_extended.UInt64.t
+    ; token: Unsigned_extended.UInt64.t
+    ; fee: Unsigned_extended.UInt64.t
+    ; amount: Unsigned_extended.UInt64.t option }
   [@@deriving to_yojson, sexp, compare]
 
   module Reason = Errors.Partial_reason