balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Apply 1 suggestion(s) to 1 file(s)

Browse Source
This commit is contained in:
Rémi Lesenechal 2020-06-23 11:27:32 +00:00 committed by Suzanne Dupéron
parent 27d7856e52
commit 362e33c7f9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/stages/5-ast_typed/PP_json.ml
View File

@ -58,7 +58,7 @@ module M = struct
`Assoc [("wrap_content", continue NoState wrap_content) ; ("location", `String (asprintf "%a" Location.pp location))] ); (*TODO*) `Assoc [("wrap_content", continue NoState wrap_content) ; ("location", `String (asprintf "%a" Location.pp location))] ); (*TODO*)
option = (fun _visitor continue NoState o -> option = (fun _visitor continue NoState o ->
match o with match o with
| None -> `Null | None -> `List [ `String "None" ; `Null ]
| Some v -> `List [ `String "Some" ; continue NoState v ] ); | Some v -> `List [ `String "Some" ; continue NoState v ] );
poly_unionfind = (fun _visitor continue NoState p -> poly_unionfind = (fun _visitor continue NoState p ->
let lst = (UnionFind.Poly2.partitions p) in let lst = (UnionFind.Poly2.partitions p) in