Don't normalize sign for zero currency values

MinaProtocol · Oct 27, 2023 · 06ee174 · 06ee174
1 parent 4af0c22
commit 06ee174
Showing 1 changed file with 1 addition and 4 deletions.
diff --git 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