From ecb18466abbab1aab1b3b2b8a22258003dc99d58 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 29 Oct 2017 17:03:54 +0100
Subject: Add showAppointments tryouts with SVG, nicer makeAppointment,
 proposeAppointment stub

---
 assignment-7/DateExtensions.dcl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 assignment-7/DateExtensions.dcl

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

diff --git a/assignment-7/DateExtensions.dcl b/assignment-7/DateExtensions.dcl
new file mode 100644
index 0000000..c7eacec
--- /dev/null
+++ b/assignment-7/DateExtensions.dcl
@@ -0,0 +1,15 @@
+definition module DateExtensions
+
+import iTasks.Extensions.DateTime
+
+:: Day = Sunday | Monday | Tuesday | Wednesday | Thursday | Friday | Saturday
+
+derive class iTask Day
+instance toString Day
+
+nextHour :: DateTime -> DateTime
+nextDay :: (Date -> Date)
+
+dayOfWeek :: Date -> Day
+
+previous :: Day Date -> Date
-- 
cgit v1.2.3