From c9187effa33aa0e68eda9bef752e3ec8a5a2e5d3 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 30 Oct 2008 14:40:42 -0400
Subject: Add time to some type classes

---
 tests/time.ur | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'tests/time.ur')

diff --git a/tests/time.ur b/tests/time.ur
index 393939e9..7b8b93ef 100644
--- a/tests/time.ur
+++ b/tests/time.ur
@@ -1,3 +1,4 @@
 val now : time = readError "10/30/08 14:35:42"
+val later : time = readError "10/30/08 14:37:42"
 
-fun main () = return <xml>{[now]}</xml>
+fun main () = return <xml>{[now]}, {[now = now]}, {[now = later]}, {[later < now]}, {[now < later]}</xml>
-- 
cgit v1.2.3