diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-11-11 10:57:47 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-11-11 11:25:26 +0100 |
| commit | dd47fcfc08c43288a49797cc72829da3f9642094 (patch) | |
| tree | 851edb0bcca1bbdc41fae350c3213ac4b7b09084 /ide/preferences.ml | |
| parent | 5a95de009158be1166b3998b99cafbccf4a0b2fa (diff) | |
Making explicit that a result is discarded (ocaml warning).
Diffstat (limited to 'ide/preferences.ml')
| -rw-r--r-- | ide/preferences.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ide/preferences.ml b/ide/preferences.ml index 64327d74f..b16d45b54 100644 --- a/ide/preferences.ml +++ b/ide/preferences.ml @@ -468,7 +468,7 @@ let create_tag name default = let iter table = let tag = GText.tag ~name () in table#add tag#as_tag; - pref#connect#changed (fun _ -> set_tag tag); + ignore (pref#connect#changed (fun _ -> set_tag tag)); set_tag tag; in List.iter iter [Tags.Script.table; Tags.Proof.table; Tags.Message.table]; |