Monotone-Parent: 8491f20b4bac3508e0839201c1e6756c5df21835

Monotone-Revision: 52de90085e2d18ded0d0c315e7148e1c72feb785

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2008-07-17T21:04:32
Monotone-Branch: ca.inverse.sogo

SOPE/NGCards/iCalRepeatableEntityObject.m

@@ -107,9 +107,15 @@
   [children removeObjectsInArray: [self childrenWithTag: @"exdate"]];
 }
 
-- (void) addToExceptionDates: (id) _rdate
+- (void) addToExceptionDates: (NSCalendarDate *) _rdate
 {
-  [self addChild: _rdate];
+  iCalDateTime *dateTime;
+
+  dateTime = [iCalDateTime new];
+  [dateTime setTag: @"exdate"];
+  [dateTime setDateTime: _rdate];
+  [self addChild: dateTime];
+  [dateTime release];
 }
 
 - (void) setExceptionDates: (NSArray *) _rdates