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

Browse source
This commit is contained in:
swrup 2026-02-17 21:49:48 +01:00
parent 1e30753ba9
commit f1e2607426
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/signatures.ml
View file

@ -4,6 +4,17 @@
check endianness check endianness
better handling of decoding failure *) better handling of decoding failure *)
type one
type two
type (_, _) typ =
| R : 'r -> ('r, one) typ
| Sig : string -> ('r, two) typ
let sign : type r. (r -> string) -> (r, one) typ -> (r, two) typ =
fun f (R r) -> Sig (f r)
open Hash open Hash
module Aliases = struct module Aliases = struct