From 82b4d838ee16fea80bfc0da630603273f7cba6c2 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 2 Jan 2018 22:28:13 +0100
Subject: Start with assignment 13

---
 assignment-13/Arduino.icl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 assignment-13/Arduino.icl

(limited to 'assignment-13/Arduino.icl')

diff --git a/assignment-13/Arduino.icl b/assignment-13/Arduino.icl
new file mode 100644
index 0000000..fe108f4
--- /dev/null
+++ b/assignment-13/Arduino.icl
@@ -0,0 +1,16 @@
+implementation module Arduino
+
+import StdOverloaded
+
+import Util
+
+instance toString Button
+where
+	toString B0 = "B0"
+	toString B1 = "B1"
+	toString B2 = "B2"
+	toString B3 = "B3"
+	toString B4 = "B4"
+	toString B5 = "B5"
+
+instance print Button where print b = print (toString b)
-- 
cgit v1.2.3