From 54f7f4d9d5b35a810626f5e567db74579a8987e5 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 5 Nov 2017 14:06:53 +0100
Subject: Finish appointments and other improvements

---
 assignment-7/DateExtensions.icl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'assignment-7/DateExtensions.icl')

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
-- 
cgit v1.2.3