diff options
Diffstat (limited to 'library/goptions.ml')
| -rw-r--r-- | library/goptions.ml | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/library/goptions.ml b/library/goptions.ml index b5a8b00ea..95259c9b5 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -22,15 +22,9 @@ open Mod_subst (****************************************************************************) (* 0- Common things *) -type option_name = - | PrimaryTable of string - | SecondaryTable of string * string - | TertiaryTable of string * string * string - -let nickname = function - | PrimaryTable s -> s - | SecondaryTable (s1,s2) -> s1^" "^s2 - | TertiaryTable (s1,s2,s3) -> s1^" "^s2^" "^s3 +type option_name = string list + +let nickname table = String.concat " " table let error_undeclared_key key = error ((nickname key)^": no table or option of this type") |