diff options
-rw-r--r-- | lib/ur/json.urs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/ur/json.urs b/lib/ur/json.urs index 7b83d03d..ad49a40f 100644 --- a/lib/ur/json.urs +++ b/lib/ur/json.urs @@ -17,6 +17,11 @@ val json_time : json time val json_option : a ::: Type -> json a -> json (option a) val json_list : a ::: Type -> json a -> json (list a) +(* By the way, time formatting follows RFC 3339, and we expose the more + * primitive formatting functions here. *) +val rfc3339_out : time -> string +val rfc3339_in : string -> time + val json_record : ts ::: {Type} -> folder ts -> $(map json ts) -> $(map (fn _ => string) ts) -> json $ts val json_record_withOptional : ts ::: {Type} -> ots ::: {Type} -> [ts ~ ots] => folder ts -> $(map json ts) -> $(map (fn _ => string) ts) |