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:09 +00:00 committed by Suzanne Dupéron
parent b4bf0ae159
commit d743605aee
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

@ -59,7 +59,7 @@ module M = struct
option = (fun _visitor continue NoState o -> option = (fun _visitor continue NoState o ->
match o with match o with
| None -> `Null | None -> `Null
| Some v -> 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
let lst' = List.map (fun l -> continue NoState (UnionFind.Poly2.repr (List.hd l) p )) lst in let lst' = List.map (fun l -> continue NoState (UnionFind.Poly2.repr (List.hd l) p )) lst in