src/dates.scm


1
2
3
4
5
6
7
8
9
10
11

(define-module (src dates)
  #:use-module (srfi srfi-19)
  #:export (string/ISO->date
            date->string/RFC3339))

(define (string/ISO->date string)
  (string->date string "~Y-~m-~d"))

(define (date->string/RFC3339 date)
  (date->string date "~4"))