diff options
| author | Gaëtan Gilbert | 2018-11-21 19:18:48 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-11-23 13:21:31 +0100 |
| commit | 99d129b8e4e7fcde8c848520463c4e8c7d8bdc11 (patch) | |
| tree | afd214c684da385dc2f19048660af8e356281906 /library/goptions.ml | |
| parent | 8fb01564fba587142c2471708ff18219f1c64903 (diff) | |
Goptions.declare_* functions return unit instead of a write_function
Returning a writer insinuates that it is not exactly the same as the
writer which was passed as argument, but that is incorrect.
Diffstat (limited to 'library/goptions.ml')
| -rw-r--r-- | library/goptions.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/library/goptions.ml b/library/goptions.ml index 154b863fa1..bb9b4e29fc 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -276,10 +276,7 @@ let declare_option cast uncast append ?(preprocess = fun x -> x) let cread () = cast (read ()) in let cwrite l v = warn (); change l OptSet (uncast v) in let cappend l v = warn (); change l OptAppend (uncast v) in - value_tab := OptionMap.add key (name, depr, (cread,cwrite,cappend)) !value_tab; - write - -type 'a write_function = 'a -> unit + value_tab := OptionMap.add key (name, depr, (cread,cwrite,cappend)) !value_tab let declare_int_option = declare_option |