On Tue, Jul 28, 2015 at 11:24:43AM +0200, Pino Toscano wrote: > --- > builder/checksums.ml | 4 ++++ > builder/checksums.mli | 1 + > 2 files changed, 5 insertions(+) > > diff --git a/builder/checksums.ml b/builder/checksums.ml > index 73d541f..25b3328 100644 > --- a/builder/checksums.ml > +++ b/builder/checksums.ml > @@ -24,17 +24,21 @@ open Utils > open Printf > > type csum_t = > +| SHA256 of string > | SHA512 of string > > let string_of_csum_t = function > + | SHA256 _ -> "sha256" > | SHA512 _ -> "sha512" > > let string_of_csum = function > + | SHA256 c -> c > | SHA512 c -> c > > let verify_checksum csum filename = > let prog, csum_ref = > match csum with > + | SHA256 c -> "sha256sum", c > | SHA512 c -> "sha512sum", c > in > > diff --git a/builder/checksums.mli b/builder/checksums.mli > index 6833879..4dc9dc0 100644 > --- a/builder/checksums.mli > +++ b/builder/checksums.mli > @@ -17,6 +17,7 @@ > *) > > type csum_t = > +| SHA256 of string > | SHA512 of string > > val verify_checksum : csum_t -> string -> unit > --
ACK. Rich. -- Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones Read my programming and virtualization blog: http://rwmj.wordpress.com virt-top is 'top' for virtual machines. Tiny program with many powerful monitoring features, net stats, disk stats, logging, etc. http://people.redhat.com/~rjones/virt-top _______________________________________________ Libguestfs mailing list [email protected] https://www.redhat.com/mailman/listinfo/libguestfs
