From d743605aeed74f41d12aaa8a82c7b9acfddeda85 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9mi=20Lesenechal?= <lesenechal.remi@gmail.com>
Date: Tue, 23 Jun 2020 11:27:09 +0000
Subject: [PATCH] Apply 1 suggestion(s) to 1 file(s)

---
 src/stages/5-ast_typed/PP_json.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/stages/5-ast_typed/PP_json.ml b/src/stages/5-ast_typed/PP_json.ml
index c7ee73949..55f39776f 100644
--- a/src/stages/5-ast_typed/PP_json.ml
+++ b/src/stages/5-ast_typed/PP_json.ml
@@ -59,7 +59,7 @@ module M = struct
       option = (fun _visitor continue NoState o ->
         match o with
         | None -> `Null
-        | Some v -> continue NoState v );
+        | Some v -> `List [ `String "Some" ; continue NoState v ] );
       poly_unionfind            = (fun _visitor continue NoState p   ->
         let lst = (UnionFind.Poly2.partitions p) in
         let lst' = List.map (fun l -> continue NoState (UnionFind.Poly2.repr (List.hd l) p )) lst in