diff options
Diffstat (limited to 'assignment-7/DateExtensions.icl')
| -rw-r--r-- | assignment-7/DateExtensions.icl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/assignment-7/DateExtensions.icl b/assignment-7/DateExtensions.icl index fa9ebb0..eded992 100644 --- a/assignment-7/DateExtensions.icl +++ b/assignment-7/DateExtensions.icl @@ -30,6 +30,12 @@ where timestampToGmDate :: (Timestamp -> Date) timestampToGmDate = toDate o timestampToGmDateTime +addTime :: Time DateTime -> DateTime +addTime t dt = timestampToGmDateTime (Timestamp dt`) +where + (Timestamp dtst) = utcDateTimeToTimestamp dt + dt` = dtst + 3600 * t.Time.hour + 60 * t.Time.min + t.Time.sec + nextHour :: DateTime -> DateTime nextHour t = timestampToGmDateTime (Timestamp ts`) where |