package emile

  1. Overview
  2. Docs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file emile_cmdliner.ml

1
2
3
4
5
6
7
8
9
10
open Cmdliner

let error_msgf fmt = Format.kasprintf (fun err -> Error (`Msg err)) fmt

let mailbox =
  let parser x = match Emile.of_string x with
    | Ok v -> Ok v
    | Error _ -> error_msgf "%S is an invalid mail address" x in
  let pp = Emile.pp_mailbox in
  Arg.conv ~docv:"<mailbox>" (parser, pp)
OCaml

Innovation. Community. Security.