module CheckName:sig..end
type error =
| |
Empty_name |
| |
Invalid_character of |
exception Exception of error
typet = privatestring
a-z+" regular expression.val make : string -> tmake x returns the check name equal to x.
Raises Exception if x is either empty, or contains a character that is
neither a lowercase letter, nor the underscore character.