From 73c287964e8d41d9b3b53a81f0ace3f509dc6a20 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Fri, 8 Nov 2019 16:16:14 -0500
Subject: Json: expose RFC 3339 functions

---
 lib/ur/json.urs | 5 +++++
 1 file changed, 5 insertions(+)

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)
-- 
cgit v1.2.3