Remove debug prints..

1 files changed, 5 insertions, 16 deletions

diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm
index a274ecfa..c2863954 100644
--- a/module/vcomponent/recurrence/generate.scm
+++ b/module/vcomponent/recurrence/generate.scm
@@ -73,10 +73,8 @@
           (date->time-utc d))
 
     (when (attr e 'DTEND)
-      (format #t "file = ~a~%dtstart = ~a~%duration = ~a~%"
-              (attr e 'X-HNH-FILENAME) (attr e 'DTSTART) (attr e 'DURATION))
-     (set! (attr e 'DTEND)
-           (add-duration (attr e 'DTSTART) (attr e 'DURATION))))
+      (set! (attr e 'DTEND)
+        (add-duration (attr e 'DTSTART) (attr e 'DURATION))))
 
     ;; Return
     e))
@@ -126,21 +124,12 @@
   (if (not (attr event 'RRULE))
       (stream event)
       (begin
-        (format #t "!!! DURATION = ~a~%" (attr event 'DURATION))
         (when (and (attr event 'DTEND)
                    (not (attr event 'DURATION)))
-          (let ((dt (time-difference  (attr event "DTEND") (attr event "DTSTART") )))
-           (format #t "duration = ~a~%start = ~a, end = ~a~%diff = ~a~%"
-                   (attr event "DURATION")
-                   (attr event "DTSTART") (attr event "DTEND")
-                   dt)
-           (set! (attr event "DURATION")
-             dt
-             #;
-             (time-difference
+          (set! (attr event "DURATION")
+            (time-difference
              (attr event "DTEND")
-             (attr event "DTSTART")))))
-        (format #t "||| DURATION = ~a~%" (attr* event "DURATION"))
+             (attr event "DTSTART"))))
         (if (attr event "RRULE")
             (recur-event-stream event (parse-recurrence-rule (attr event "RRULE")))
             ;; TODO some events STANDARD and DAYLIGT doesn't have RRULE's, but rather