We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents c13da98 + e6c44bb commit 964b243Copy full SHA for 964b243
plugins/gnat_json/gnat_ast.ml
@@ -18,8 +18,6 @@ type symbol = No_symbol | Symbol of string
18
type symbol_set = symbol list
19
type string_sets_set = symbol list
20
21
-type why_node_set = unit
22
-
23
(* Why.Sinfo *)
24
25
type odomain =
@@ -1356,10 +1354,6 @@ module From_json = struct
1356
1354
Source_ptr {filename; line}
1357
1355
| json -> unexpected_json "source_ptr" json
1358
1359
- let why_node_set_from_json : why_node_set from_json = function
1360
- | `String "<Why_Node_Set>" -> ()
1361
- | json -> unexpected_json "why_node_set" json
1362
1363
let symbol_from_json : symbol from_json = function
1364
| `String "" -> No_symbol
1365
| `String s -> Symbol s
0 commit comments