Add utils/date module.

1 files changed, 22 insertions, 0 deletions

diff --git a/utils/date.rkt b/utils/date.rkt
new file mode 100644
index 0000000..7019832
--- /dev/null
+++ b/utils/date.rkt
@@ -0,0 +1,22 @@
+#lang typed/racket
+
+(provide current-date
+         string->date
+         date->string)
+
+(require (only-in typed/racket/date current-date))
+(require (rename-in (only-in typed/srfi/19
+                             string->date
+                             date->string
+                             date?)
+                    [string->date string->Date]
+                    [date->string Date->string]
+                    [date? Date?]))
+
+(: string->date (-> String String date))
+(define (string->date str fmt)
+  (assert (string->Date str fmt) date?))
+
+(: date->string (->* (date) (String) String))
+(define (date->string d [f "~c"])
+  (Date->string (assert d Date?) f))