diff options
-rw-r--r-- | lib/ur/json.ur | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/ur/json.ur b/lib/ur/json.ur index eed52fd6..1222cdbf 100644 --- a/lib/ur/json.ur +++ b/lib/ur/json.ur @@ -165,6 +165,10 @@ fun rfc3339_in s = None => error <xml>Invalid RFC 3339 string "{[s]}"</xml> | Some (time, sep, rest) => let + val time = case String.split time #"." of + None => time + | Some (time, _) => time + val t = case readUtc (date ^ " " ^ time) of None => error <xml>Invalid RFC 3339 string "{[s]}"</xml> | Some t => t |