File tree 3 files changed +3
-1
lines changed
3 files changed +3
-1
lines changed Original file line number Diff line number Diff line change @@ -160,7 +160,7 @@ module Lookup = struct
160
160
| (`A _ | `O _ ) as js -> js
161
161
| _ -> js
162
162
with Not_found ->
163
- if strict then raise Not_found else `Bool false
163
+ if strict then raise ( Missing_section key) else `Bool false
164
164
165
165
let inverted (js : Json.value ) ~key =
166
166
match js with
Original file line number Diff line number Diff line change @@ -4,6 +4,7 @@ exception Invalid_template of string
4
4
5
5
(* * Raised when a missing variable in a template is not substituted *)
6
6
exception Missing_variable of string
7
+ exception Missing_section of string
7
8
8
9
module Json : sig (* * Compatible with Ezjsonm *)
9
10
type value =
Original file line number Diff line number Diff line change @@ -36,3 +36,4 @@ and section = {
36
36
exception Invalid_param of string
37
37
exception Invalid_template of string
38
38
exception Missing_variable of string
39
+ exception Missing_section of string
You can’t perform that action at this time.
0 commit comments