Skip to content

Commit e6c44bb

Browse files
committed
Follow AST change in gnat2why
1 parent c13da98 commit e6c44bb

File tree

1 file changed

+0
-6
lines changed

1 file changed

+0
-6
lines changed

plugins/gnat_json/gnat_ast.ml

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -18,8 +18,6 @@ type symbol = No_symbol | Symbol of string
1818
type symbol_set = symbol list
1919
type string_sets_set = symbol list
2020

21-
type why_node_set = unit
22-
2321
(* Why.Sinfo *)
2422

2523
type odomain =
@@ -1356,10 +1354,6 @@ module From_json = struct
13561354
Source_ptr {filename; line}
13571355
| json -> unexpected_json "source_ptr" json
13581356

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-
13631357
let symbol_from_json : symbol from_json = function
13641358
| `String "" -> No_symbol
13651359
| `String s -> Symbol s

0 commit comments

Comments
 (0)