diff options
Diffstat (limited to 'src/CfimOfJson.ml')
-rw-r--r-- | src/CfimOfJson.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/CfimOfJson.ml b/src/CfimOfJson.ml index dddfbd58..82f9d95a 100644 --- a/src/CfimOfJson.ml +++ b/src/CfimOfJson.ml @@ -632,14 +632,16 @@ let cfim_module_of_json (js : json) : (M.cfim_module, string) result = (match js with | `Assoc [ + ("name", name); ("declarations", declarations); ("types", types); ("functions", functions); ] -> + let* name = string_of_json name in let* declarations = list_of_json declaration_group_of_json declarations in let* types = list_of_json type_def_of_json types in let* functions = list_of_json fun_def_of_json functions in - Ok { M.declarations; types; functions } + Ok { M.name; declarations; types; functions } | _ -> Error "") |