swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

rm timestamp.ml

Browse source
This commit is contained in:
swrup 2026-03-20 00:43:26 +01:00 • committed by Swrup
parent 5bcd84ca54
commit 75759afe69
7 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/denomination.ml
View file

@ -1,4 +1,5 @@
open Crypto open Crypto
open Time
type t = { type t = {
pub: rsa_pub; pub: rsa_pub;

1
src/keys.ml
View file

@ -1,5 +1,6 @@
open Syntax open Syntax
open Crypto open Crypto
open Time
type 'a result = ('a, string) Result.t type 'a result = ('a, string) Result.t

1
src/mte_info.ml
View file

@ -1,5 +1,6 @@
open Syntax open Syntax
open Api open Api
open Time
module String_map = Stdlib.Map.Make (Stdlib.String) module String_map = Stdlib.Map.Make (Stdlib.String)
(* TODO mirage-crypto (* TODO mirage-crypto

1
src/mte_management.ml
View file

@ -1,6 +1,7 @@
open Syntax open Syntax
open Api open Api
open Hash open Hash
open Time
module Keys_get = struct module Keys_get = struct
let jsont = FutureKeysResponse.jsont let jsont = FutureKeysResponse.jsont

4
src/pg_type.ml
View file

@ -14,7 +14,7 @@ let amount : Amount.t t =
(* we want to use int64 timestamps, (* we want to use int64 timestamps,
not postgresql built-in timestamp type *) not postgresql built-in timestamp type *)
let ptime : unit t = Caqti_type.unit let ptime : unit t = Caqti_type.unit
let time = Timestamp.caqti let time = Time.Timestamp.caqti
let time_span = Time.TimeRelative.caqti let time_span = Time.TimeRelative.caqti
let age_mask : int t = Caqti_type.int let age_mask : int t = Caqti_type.int
let rsa_pub = RsaPublicKey.caqti let rsa_pub = RsaPublicKey.caqti
@ -356,7 +356,7 @@ module Auditor = struct
auditor_pub: Crypto.EddsaPublicKey.t; auditor_pub: Crypto.EddsaPublicKey.t;
auditor_url: string; auditor_url: string;
auditor_name: string; auditor_name: string;
last_change: Timestamp.t; last_change: Time.Timestamp.t;
is_active: bool; is_active: bool;
} }

1
src/signkey.ml
View file

@ -1,4 +1,5 @@
open Crypto open Crypto
open Time
type t = { type t = {
pub: eddsa_pub; pub: eddsa_pub;

1
src/timestamp.ml
View file

@ -1 +0,0 @@
include Time.Timestamp