Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source
Page
Library
Module
Module type
Parameter
Class
Class type
Source
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)