qp2/ocaml/To_md5.ml

mirror of https://github.com/QuantumPackage/qp2.git
open Qptypes
open Sexplib

let to_md5 sexp_of_t t =
  sexp_of_t t
  |> Sexp.to_string
  |> Digest.string 
  |> Digest.to_hex
  |> MD5.of_string
;;
Initial commit 2019-01-25 11:39:31 +01:00			`open Qptypes`
			`open Sexplib`

			`let to_md5 sexp_of_t t =`
			`sexp_of_t t`
			`\|> Sexp.to_string`
Removed Cryptokit 2023-02-24 18:05:45 +01:00			`\|> Digest.string`
			`\|> Digest.to_hex`
Initial commit 2019-01-25 11:39:31 +01:00			`\|> MD5.of_string`
			`;;`