src/management.ml

@@ -75,25 +75,23 @@ let mk_future_denom denom_secmod_sign_f
 
 let mk_future_sign_key signkey_secmod_sign_f
     ({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Secmod_keys.t) =
-  let exchange_pub =
-    Binary_formats.ExchangePublicKeyP.{ v= { v= EddsaPublicKey.to_octets pub } }
-  in
   let signkey_secmod_sig =
     let open Binary_formats in
-    let ps =
+    let exchange_pub =
-      let anchor_time =
+      ExchangePublicKeyP.{ v= { v= EddsaPublicKey.to_octets pub } }
-        TimeAbsoluteNBO.{ v= Util.ptime_to_int64_us stamp_start }
-      in
-      let duration =
-        let v =
-          Ptime.diff stamp_start stamp_expire
-          |> Util.ptime_of_span_exn
-          |> Util.ptime_to_int64_us
-        in
-        TimeRelativeNBO.{ v }
-      in
-      SigningKeyAnnouncementPS.{ exchange_pub; anchor_time; duration }
     in
+    let anchor_time =
+      TimeAbsoluteNBO.{ v= Util.ptime_to_int64_us stamp_start }
+    in
+    let duration =
+      let v =
+        Ptime.diff stamp_start stamp_expire
+        |> Util.ptime_of_span_exn
+        |> Util.ptime_to_int64_us
+      in
+      TimeRelativeNBO.{ v }
+    in
+    let ps = SigningKeyAnnouncementPS.{ exchange_pub; anchor_time; duration } in
     ps |> Bin.to_string SigningKeyAnnouncementPS.bin |> signkey_secmod_sign_f
   in
   FutureSignKey.