diff options
| author | Maxime Dénès | 2018-11-29 15:37:26 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-12-13 10:08:02 +0100 |
| commit | e20a12d92c7cc7c40ee0ac0b6569b0ee5e0e0b0f (patch) | |
| tree | 1c9d80fb70c9df0a28e7fc8989e931cffb787b08 /library/goptions.ml | |
| parent | d9a6d4814f0669b586ca5c13d6d6540cd194b45f (diff) | |
Move shallow state logic to the function preparing state for workers
Diffstat (limited to 'library/goptions.ml')
| -rw-r--r-- | library/goptions.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/goptions.ml b/library/goptions.ml index 340d74151b..1b907fd966 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -235,7 +235,7 @@ let declare_option cast uncast append ?(preprocess = fun x -> x) let default = read() in let change = let _ = Summary.declare_summary (nickname key) - { Summary.freeze_function = (fun _ -> read ()); + { Summary.freeze_function = (fun ~marshallable -> read ()); Summary.unfreeze_function = write; Summary.init_function = (fun () -> write default) } in let cache_options (_,(l,m,v)) = |