Fix toJson for records with optional fields

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/ur/json.ur b/lib/ur/json.ur
index 58822d4b..eed52fd6 100644
--- a/lib/ur/json.ur
+++ b/lib/ur/json.ur
@@ -356,7 +356,7 @@ fun json_record_withOptional [ts ::: {Type}] [ots ::: {Type}] [ts ~ ots]
                                   escape name ^ ":" ^ j.ToJson v ^ (case acc of
                                                                         "" => ""
                                                                       | acc => "," ^ acc))
-                          "" ofl ojss onames (r --- _)
+                          withRequired ofl ojss onames (r --- _)
                  in
                      "{" ^ withOptional ^ "}"
                  end,