Make (dkim-mirage.Dkim

Parameters

module P : Mirage_clock.PCLOCK

module D : Dns_client_mirage.S

Signature

type nameserver = [

| `Plaintext of Ipaddr.t * int
| `Tls of Tls.Config.client * Ipaddr.t * int

]

val server : 
  D.t ->
  'a Dkim.dkim ->
  (Dkim.server, [> `Msg of string ]) Stdlib.result Lwt.t

val verify : 
  ?newline:Dkim.newline ->
  (string * int * int) stream ->
  D.t ->
  (Dkim.signed Dkim.dkim list * Dkim.signed Dkim.dkim list,
    [> `Msg of string ])
    Stdlib.result
    Lwt.t