From 11698ee4f899b4555847534b83a7dc98b4c05cb6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 6 Sep 2020 14:09:27 +0200
Subject: Add some type signatures.

---
 module/vcomponent/recurrence/generate.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm
index c272e907..69105fcc 100644
--- a/module/vcomponent/recurrence/generate.scm
+++ b/module/vcomponent/recurrence/generate.scm
@@ -222,6 +222,8 @@
    extension-rule))
 
 
+;; (or 'YEARLY 'MONTHLY 'WEEKLY 'HOURLY 'MINUTELY 'SECONDLY)
+;; → <datetime>
 (define (make-date-increment rr)
   (case (freq rr)
     [(YEARLY)   (datetime date: (date year: (interval rr)))]
@@ -309,12 +311,15 @@
     (limiters->predicate (all-limiters rrule))
     date-stream)))
 
+;; (a := <date|datetime>) => <rrule>, a → (stream a)
 (define-stream (generate-posibilities rrule start-date)
   (limit-recurrence-set
    rrule
    (extend-recurrence-set
     rrule start-date)))
 
+
+;; Recurring <vcomponent> → (stream <date|datetime>)
 (define-stream (rrule-instances event)
   (define rrule (prop event 'RRULE))
 
-- 
cgit v1.2.3