diff options
| author | Hugo Herbelin | 2019-04-27 12:29:38 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2019-04-30 12:50:47 +0200 |
| commit | 523fc765d1363767ffb6970781767dfcdca6892c (patch) | |
| tree | 33212ae2f909772a8a0beaeccb0f3e4b34520f29 /ide | |
| parent | dda4e65e530bd0e4a3ada165fdc752e1a217da8b (diff) | |
Cosmetic in nanoPG.ml: fixing a wrong indentation.
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/nanoPG.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ide/nanoPG.ml b/ide/nanoPG.ml index 0cb39c8d75..70f2a71db2 100644 --- a/ide/nanoPG.ml +++ b/ide/nanoPG.ml @@ -299,9 +299,9 @@ let find gui (Step(here,konts)) t = else if k = _c && mod_of t mC && sel_nonempty () then ignore(run t gui (Action("Edit","Copy")) empty); - let cmp { key; mods } = key = k && mod_of t mods in - try `Do (List.find cmp here) with Not_found -> - try `Cont (List.find cmp konts).contents with Not_found -> `NotFound + let cmp { key; mods } = key = k && mod_of t mods in + try `Do (List.find cmp here) with Not_found -> + try `Cont (List.find cmp konts).contents with Not_found -> `NotFound let init w nb ags = let gui = { notebook = nb; action_groups = ags } in |