From e0e4f3c3978c8cf18f6e2c11203051c2ef4d4a68 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 4 Feb 2012 11:01:06 -0500 Subject: Basis.toMilliseconds and diffInMilliseconds, based on a patch from Gergely Buday --- tests/millis.ur | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 tests/millis.ur (limited to 'tests/millis.ur') diff --git a/tests/millis.ur b/tests/millis.ur new file mode 100644 index 00000000..0ba22b9f --- /dev/null +++ b/tests/millis.ur @@ -0,0 +1,17 @@ +fun diffThem tm = + tm' <- now; + return + Diff: {[diffInMilliseconds tm tm']} + + +fun main () : transaction page = + tm <- now; + + return + Now: {[toMilliseconds tm]}
+ Diff
+ +