From 06ee174d4fba580ec54c7ed67af9ac236cc43d52 Mon Sep 17 00:00:00 2001
From: "It's me, CI" <hello@ci.com>
Date: Thu, 26 Oct 2023 17:00:33 -0700
Subject: [PATCH] Don't normalize sign for zero currency values
---
src/lib/currency/currency.ml | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/src/lib/currency/currency.ml b/src/lib/currency/currency.ml
index 39fa21fe55b..a37112d0658 100644
--- a/src/lib/currency/currency.ml
+++ b/src/lib/currency/currency.ml
@@ -474,10 +474,7 @@ module Make_str (A : Wire_types.Concrete) = struct
type magnitude = Unsigned.t [@@deriving sexp, compare]
- let create ~magnitude ~sgn =
- { magnitude
- ; sgn = (if Unsigned.(equal magnitude zero) then Sgn.Pos else sgn)
- }
+ let create ~magnitude ~sgn = { magnitude; sgn }
let sgn { sgn; _ } = sgn